var s, i: integer;
begin
s := 0;
for i := 117 to 234 do
s := s + i;
write('Сумма целых чисел от 117 до 234 равна ', s);
end.
Pascal ABC.Net
var s: integer;
for var i := 117 to 234 do
s+=i;
Println('Sum: ',s);
var s, i: integer;
begin
s := 0;
for i := 117 to 234 do
s := s + i;
write('Сумма целых чисел от 117 до 234 равна ', s);
end.
Pascal ABC.Net
begin
var s: integer;
for var i := 117 to 234 do
s+=i;
Println('Sum: ',s);
end.