Question

определить значение пременной а после выполнения следуюших фрагментов программы:
var a:real; i:integer;
a:=1; i:=1;
while i<5 do i:==i+1;  a:=a+1*i;

Answer 1

var a:real; i:integer;
begin
a:=1;
i:=1;
while i<5 do
begin
i:=i+1;  
a:=a+1*i;
end;
writeln(a);
end.

Такая программа, наверное) значит а=15