Определить значение пременной а после выполнения следуюших фрагментов программы:

var a:real; i:integer;

a:=1; i:=1;

while i<5 do i:==i+1; a:=a+1*i;

Question

Информатика

Пафнутий

27 февраля, 05:05

Определить значение пременной а после выполнения следуюших фрагментов программы:

var a:real; i:integer;

a:=1; i:=1;

while i<5 do i:==i+1; a:=a+1*i;

+2

Ответы (1)

Знаете ответ на вопрос?

Гедимин · 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

Определить значение пременной а после выполнения следуюших фрагментов программы: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;

a:=1; i:=1;

while i<5 do i:==i+1; a:=a+1*i;