Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

ПОЖАЛУЙСТА, СРОЧНО, НАПИШИТЕ 3 ПРОГРАМЫ НА ЯЗЫКЕ ПАСКАЛЬ
1) Сум
ма первых семи натуральных чисел
2) Сумма первых семи натуральных чисел возведенных в квадрат
3) Сумма четных чисел от 1 до 20 Сори, не туда добавила))))

Ответ оставил Гость

Uses crt;
var i,a,b,c:integer;
begin
for i:=1 to 20 do
begin
if i<=7 then
begin
a:=a+i;
b:=b+sqr(i);
end;
if (i mod 2) = 0 then
c:=c+i;
end;
writeln(Сумма первых семи натуральных чисел: ,a);
writeln(Сумма первых семи натуральных чисел возведенных в квадрат: ,b);
writeln(Сумма четных чисел от 1 до 20: ,c);
end.