1)найти сумму чисел кратные 3 но не делящихся на2 от 100 до 1502)вывести натуральные числа от 100 до 150 через 5
1)найти сумму чисел кратные 3 но не делящихся на2 от 100 до 150
2)вывести натуральные числа от 100 до 150 через 5
Гость
Ответ(ы) на вопрос:
Гостьvar a:integer;
begin
for a:=100 to 150 do
if (a mod 2<>0) and (a mod 3=0) then writeln(a)
end.
var a:integer;
begin
a:=100;
while a<= 150 do
begin
writeln(a);
a:=a+5
end
end.
Не нашли ответ?
Похожие вопросы