Составить программу.

Вывести на экран числа кратные 14 от F до 8 (F>10)

Question

Информатика

Тифантиан

22 августа, 18:44

Составить программу.

Вывести на экран числа кратные 14 от F до 8 (F>10)

+2

Ответы (1)

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

Валора · Answer 1

var F, a:integer;

begin

while not (F>10) do

begin

writeln ('F = ') ;

read (F) ;

end;

for a:=F to F*8 do

begin

if (a mod 14 = 0)

then write (a,' ')

end;

end.

Составить программу.Вывести на экран числа кратные 14 от F до 8 (F>10)

Составить программу.

Вывести на экран числа кратные 14 от F до 8 (F>10)