Все информатики айтишники сюда срочно нужна помощь

0 голосов
45 просмотров

Все информатики айтишники сюда срочно нужна помощь


image

Информатика (18 баллов) | 45 просмотров
Дан 1 ответ
0 голосов

var

   x, z : integer;

   

begin

   write('введите x=');

   readln(x);

   if x < 1 then z := x+3 else z := 4*x;

   writeln('z=', z);

end.

(1.2k баллов)