В ПаскалеABC: 1)Вывести на экран квадраты и кубы чисел от 2 до 10 2)Найти сумму целых положительных четных чисел меньше 200 3) Найти сумму целых положительных чисел, кратных 4 и меньше 100 Хотя бы с одним помогите,пожалуйста,...
В ПаскалеABC: 1)Вывести на экран квадраты и кубы чисел от 2 до 10 2)Найти сумму целых положительных четных чисел меньше 200 3) Найти сумму целых положительных чисел, кратных 4 и меньше 100 Хотя бы с одним помогите,пожалуйста, напишите программу
Гость
Ответ(ы) на вопрос:
Гостьв одной программе предусмотренны все 3 условия program abc;
var i,sum1,sum2:integer;
begin
for i:=2 to 10 do
writeln('kvadraty',i*i,' Kyby',i*i*i);
for i:=1 to 200 do
sum1:=sum1+i;
writeln(sum1);
for i:=1 to 99 do
if i mod 4<>0 then sum2:=sum2+i;
writeln(sum2);
end.
Не нашли ответ?
Похожие вопросы