Question

определить значение переменной T .
S:=10; T:=1;
Для i от 1 до 5 шаг 1
НачалоЦикла
T:=T+i
S:=S+T
КонецЦикла
Печать T
Я решил вот так
var i:integer;
S:real;
T:integer;
begin
S:=10;
T:=1;
for i:=1 to 5 do
begin
T:=T+i;
S:=S+T;
end;
Write (T);
end.
Подскажите в чем ошибка и почему.

Answer 1

Вообще всё правильно. Единственная ошибка - тип данных переменной S. В программе используются целые числа, поэтому нет нужды задавать тип Real. Ниже исправленная программа:

var

 i, S, T:integer;

begin

   S:=10;

   T:=1;

   for i:=1 to 5 do

   begin

       T:=T+i;

       S:=S+T;

   end;

   Write (T);

end.