Найти значение всех двузначных чисел от 10 до 99

0 голосов
18 просмотров

Найти значение всех двузначных чисел от 10 до 99


Информатика (20 баллов) | 18 просмотров
0

на Pascal?

0

да

Дан 1 ответ
0 голосов

Program p1;
var   i,n,a:integer;
begin
n:=99;
a:=10;
for i :=10 to n do 
begin 
a:=a+i; 
end; 
writeln(a); 
readln;
end.

(759 баллов)
0

Спасибо большое

0

не за что) сейчас поправлю текст