Вывести числа кратные 4 на отрезке от а до б. Паскаль

Question

Информатика

Ара

22 октября, 18:50

Вывести числа кратные 4 на отрезке от а до б. Паскаль

+3

Ответы (2)

Знаете ответ на вопрос?

Сократ · Answer 1

var

a, b:integer;

begin

write ('a = ') ; readln (a) ;

write ('b = ') ; readln (b) ;

writeln ('Чиcла кратные 4 на отрезке от ', a, ' до ', b) ;

for a : = a to b do

if (a mod 4 = 0) and (a 0) then

write (a, ' ') ;

writeln;

end.

Алевтиныч · Answer 2

const

N = 10;

var

c: array[1 ... N] of integer;

a, b, i: integer;

begin

writeln ('Введите отрезок: ') ; readln (a, b) ;

for i : = 1 to N do begin

c[i] : = random (30) ;

write (c[i],' ') ;

end;

writeln; writeln;

for i : = a to b do begin

if (c[i] mod 4 = 0) then write (c[i], ' ') ;

end;

end.