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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.