Дано целое число. Если оно является положительным, то удвоить его; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
295
ОТВЕТЫ
Var a: Integer;
begin
writeln(Введите число);
readln(a);
if agt;0 then a:=a*a;
if alt;0 then a:=a-2;
if a=0 then a:=10;
writeln(Полученное число: ,a);
end.
begin
writeln(Введите число);
readln(a);
if agt;0 then a:=a*a;
if alt;0 then a:=a-2;
if a=0 then a:=10;
writeln(Полученное число: ,a);
end.
25
Отв. дан
Arafyn
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Thorgagrinn
Вводится 10 чисел определить среднее арифметическое чисел попадающих в ...
2018-10-04 00:00:00
Татьяна
Записать программу которая находит сумму ряда 1 + 1/2 ...
2018-10-04 00:00:00
Centritus
Какую разновидность информационно-поисковых систем представляют поисковые системы в Интернете
...
2018-10-04 00:00:00
Константин
Вычислить сумму ряда чисел 1 + 1/2 + 1/3 ...
2018-10-04 00:00:00