Пусть дано некоторое целое число. Требуется составить программу, которая выводит на экран монитора сообщение о том, какое это число: положительное либо отрицательное. И если это число положительное, уменьшает его в 2 раза, в пр...
Пусть дано некоторое целое число. Требуется составить программу, которая выводит на экран монитора сообщение о том, какое это число: положительное либо отрицательное. И если это число положительное, уменьшает его в 2 раза, в противном случае возводит его в квадрат.
Гость
Ответ(ы) на вопрос:
Гостьprogram a2;
var a,b:integer;
begin
write('Введите целое числo');
readln(a);
if a > 0 then begin
b:=a div 2;
end
else
begin b:=a*a;
end;
write ('b',b);
end.
Не нашли ответ?
Похожие вопросы