Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program m;
uses crt;
var a,b,c,sum: integer;
begin
clrscr;
readln(a,b,c);
sum: =a+b+c;
writeln(' ',sum);
readkey;
end.
var
s,n,i: integer;
write('введите количество чисел');
readln(n);
s: =0;
for i: =1 to n do
s: =s+i*3;
writeln(s);
Популярные вопросы