Предмет: Информатика,
автор: romangabdulbar
Дано целое число. Если оно является положительным, то удвоить его; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
Ответы
Автор ответа:
6
var a: Integer;
begin
writeln('Введите число');
readln(a);
if a>0 then a:=a*a;
if a<0 then a:=a-2;
if a=0 then a:=10;
writeln('Полученное число: ',a);
end.
begin
writeln('Введите число');
readln(a);
if a>0 then a:=a*a;
if a<0 then a:=a-2;
if a=0 then a:=10;
writeln('Полученное число: ',a);
end.
Интересные вопросы
Предмет: Биология,
автор: alisadrobotova552
Предмет: Биология,
автор: 123785265
Предмет: Физика,
автор: ribakovaekaterina198
Предмет: Математика,
автор: артур191
Предмет: Геометрия,
автор: maksim99997336