Цикл for. pascal заранее !
1.напечатать таблицу умножения на 4. вывод на экран должен быть в виде «2*4=8».
2.вывести на экран все числа на промежутке [234..789] заканчивающиеся на 2 или 3 и начинающиеся на четную цифру
3.вводятся 4 числа: a, b, c и d. выведите все числа на отрезке от a до b, остаток c при делении на d.
1)
var i: integer;
begin
for i:=1 to 10 do writeln(i,'*4=',i*4);
end.
2)
var i: integer;
begin
for i:=234 to 789 do
if((i mod 10=2) or (i mod 10=3)) and ((i div 100) mod 2=0)
then write(i,' ');
end.
3)
var a,b,c,d,i: integer;
begin
readln(a,b,c,d);
for i:=a to b do
if(i mod d=c) then write(i,' ');
end.
PascalABC.NET
begin
// 1
for var i := 1 to 10 do
Writeln(i, '*4=', i * 4);
// 2
for var i := 234 to 789 do
if (i div 100 mod 2 = 0) and
((i mod 10 = 2) or (i mod 10 = 3)) then
Print(i);
Writeln;
// 3
var a, b, c, d: integer;
Read(a, b, c, d);
for var i := a to b do
if i mod d = c then
Print(i)
end.