Найди ошибки и перепиши команды без ошибок:
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, Числа вводятся с клавиатуры.
Ответы на вопрос
Ответил SalohiyatDP
2
Ответ:
Задание 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
Аноним:
Храни тебя господь
Новые вопросы