Информатика, опубликовано 2018-08-22 21:42:50 by Гость
Введите с клавиатуры число , если оно четное , то уменьшить его в 10 раз , если не четное, то возвести в квадрат. Паскаль.
Ответ оставил Гость
program funct;
uses crt;
var x:integer;
y:real;
begin
clrscr;
writeln(Enter x:);
readln(x);
if (x mod 2=0) then
begin
y:=x/10;
end
else
begin
y:=x*x;
end;
writeln(y=,y);
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на