Question

цикл for. pascal заранее спасибо!
1.Вывести на экран все четырехзначные целые числа, у которых произведение десятков и сотен равно сумме единиц и тысяч.
2.Среди двузначных чисел найти те, которые при умножении на 3 оканчиваются 7.

Answer 1

1)

var i: integer;

begin

for i:=1000 to 9999 do

if((i div 1000)+(i mod 10)=(i mod 100 div 10)*(i mod 1000 div 100))

then write(i,' ');

end.

2)

var i: integer;

begin

for i:=10 to 99 do if ((i*3) mod 10=7) then write(i,' ');

end.

Answer 2

===== PascalABC.NET =====

begin

 // 1

 for var i := 1000 to 9999 do

   if i div 1000 + i mod 10 =

      (i div 100 mod 10) * (i mod 100 div 10) then

         Print(i);

 Println;        

 // 2

 for var i := 10 to 99 do

   if i * 3 mod 10 = 7 then

     Print(i)

end.