Яке значення матиме змінна а після виконання кожної з двох наведених нижче послідовностей операторів А) a:=1; for i:=5 downto 2 do a:=( i-a)i
Б) i:=5; a:=1; while (i>=2) do begin a:=(a-i)a; i:=i-1; end;

Question

Информатика: Яке значення матиме змінна а після виконання кожної з двох наведених нижче послідовностей операторів А) a:=1; for i:=5 downto 2 do a:=( i-a)*i Б) i:=5; a:=1; while (i =2) do begin a:=(a-i)*a; i:=i-1; end;

enotic009 · Accepted Answer

program z1;

var a,b,k,i:integer;

begin

k:=0;

write('Ââåäèòå êîîðäèíàòó à: ');

read(a);

write('Ââåäèòå êîîðäèíàòó b: ');

read(b);

for i:=a to b do begin

if i mod 3=0 then begin

writeln(i);

k:=k+1;

end;

writeln('Количество чисел кратных трём равно ',k);

readln;

end.

Яке значення матиме змінна а після виконання кожної з двох наведених нижче послідовностей операторів А) a:=1; for i:=5 downto 2 do a:=( i-a)*i Б) i:=5; a:=1; while (i>=2) do begin a:=(a-i)*a; i:=i-1; end;

MOGZ ответил

Яке значення матиме змінна а після виконання кожної з двох наведених нижче послідовностей операторів А) a:=1; for i:=5 downto 2 do a:=( i-a)i
Б) i:=5; a:=1; while (i>=2) do begin a:=(a-i)a; i:=i-1; end;