Question

50БАЛОВ ИНФОРМАТИКА
Виконайти завдання №1 або 2 (на вибір) з прикріпленого файлу.

Answer 1

Язык: Pascal ABC

a)

var

 x:integer;

begin

 x:=ReadInteger('Введите x: ');

 while (x < 30) do

   x:=x * 3;

 write('x = ', x);

end.

б)

var

 x:integer;

begin

 x:=5;

 while (x < 25) do

   inc(x, 4);

 write('x = ', x);

end.