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

var a:real; i:integer;

a:=1; i:=1;

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

Question

Информатика

Пафнутий

12 декабря, 22:20

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

var a:real; i:integer;

a:=1; i:=1;

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

+3

Ответы (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;