Помогите пожалуйста, упражнение 2. Нужно только написать программу на языке Pascal
Приложения:

Ответы на вопрос
Ответил raf1O5
0
program raf105;
var x,y: integer;
begin
x:= 13;
y:= 2;
while y < 12 do
if y<=x
then begin
x:= x-3;
y:= y*2;
end
else begin
y:= y-3;
x:= x*y;
end;
writeln(x);
end.
PascalABC 3.4.2
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Биология,
7 лет назад
Химия,
7 лет назад
Физика,
9 лет назад
Математика,
9 лет назад