Определите значение переменной P после выполнения следующего фрагмента программы:
P := 1; i :=3;
while i <=9 do
begin
P := P * (i div 3);
i := i + 1;
end;

152

177

Посмотреть ответы 1

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

Dasha5746

Информатика

4,4(78 оценок)

1) var a,b: integer; begin writeln('a='); readln(a); writeln('b='); readln(b); if (a mod b=0) or (b mod a=0) then writeln (1) else writeln (5); readln; end. 2 var n: integer; begin write(' n = '); readln(n); if sqrt(n)=trunc(sqrt(n)) then writeln('yes') else writeln ('no'); readln; end..