C помощью чисел - числовой
с помощью того же алфавита, что и исходный текст - символьный
Var i,n,sum:integer;
begin
sum:=0;
write ('N = ');
readln (n);
for i:=1 to n do sum:=sum+i;
writeln ('Summa; ',sum);
end.
20+10 = 30
сам сдаю информатику скоро
если ты тоже сдаешь и не знаешь как это решается, то посмотри на ютубчике решение огэ
Это произведение
var p,i:integer;
begin
p:=1;
for i:=2 to 11 do
p;=p*i;
writeln (p);
end.
Это подсчёт i
var k,i:integer;
begin
k:=0;
for i:=2 to 11 do
k;=k+1i;
writeln (k);
end.
сумму не понятно чего?