Предмет: Информатика,
автор: ApAlex
даны числа от 36 до 1477 необходимо числа кратные 8 разделить на 2 и вывести на экран и числа кратные 7 умножить на 2 и вывести на экран
Аноним:
В смысле, перебрать все числа от 36 до 1477 или даны n чисел, каждое из которых находится в интервале [36;1477] ?
Ответы
Автор ответа:
0
Нет возможсти проверить. Если неправильно - напиши.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
______________
var x : integer;
begin
for x:=36 to 1477 do begin
if x div 8 = 0 then
writeln(x/2);
if x div 7 = 0 then
writeln(x*2);
end;
end.
Похожие вопросы
Предмет: Английский язык,
автор: yankhallyev9
Предмет: Геометрия,
автор: osipyyyyn01
Предмет: Английский язык,
автор: gulkuanyshova70
Предмет: Математика,
автор: delux1980
Предмет: Биология,
автор: mariyaа