Напишите программу в pascal

выведите на экран все трехзначные числа, у которых последняя цифра четная

185

434

Посмотреть ответы 2

Ответы на вопрос:

kono100216

Информатика

4,6(3 оценок)

var i: integer;

begin

for i: =100 to 999 do

if (i mod 10) mod 2=0

then write(i,' ');

end.

AENabatov

Информатика

4,6(14 оценок)

Program krug; uses graphabc; var x,y,r,i: integer; begin setwindowsize (640,480); setwindowtitle ('êðóã'); setpencolor (clred); setpenwidth (4); x: =50; y: =50; r: =40; for i: =1 to 10 do begin circle(x,y,r); x: =x+80; end; end. такое пойдёт?