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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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