Question

Найди ошибки и перепиши команды без ошибок:
for 10 do
begin
p:=p*x
p=3*p;
end;
Задание 2
Какое число напечатает программа:
p:=1;
for i=1 to 2 do
begin
p:=p+i;
s:=p*p;
end;
writeln(s);
Задание 3
Нарисуй блок-схему и напиши программу:
Найти произведение чисел, меньших 6, Числа вводятся с клавиатуры.

Answer 1

Ответ:

Задание 1.

var

p,x :integer;

begin

p:=1;

   for x:=1 to 10 do

       begin

           p:=p*x;

           p:=3*p;

       end;

write(p)

end.

Result:  -18688

Задание 2.

var

i,p,s:integer;

begin

   p:=1;

   for i:=1 to 2 do

       begin

           p:=p+i;

           s:=p*p;

       end;

writeln(s);

end.

Result: 16