решить задачи в Задачи
1. Вычислите периметр прямоугольника. Значения сторон прямоугольника пользователь вводит с клавиатуры.
2. Дано целое число (пользователь вводит с клавиатуры). Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 6; если нулевым, то заменить его на 16. Вывести полученное число.
Выберите правильную программy:
А
Б
В
3. Написать программу (по аналогии, задача 2) .
Дано целое число. Если оно является положительным, то умножить его на 5; если отрицательное, возвести его в квадрат; если нулевым, то заменить его на 15. Вывести полученное число.
4.Вывести наибольшее число из двух чисел. Два числа вводит пользователь с клавиатуры.
Деп567
1
18.05.2020 19:19
1
Другие вопросы по теме Информатика
КсенияВиленская
28.04.2020 07:44
sasha13410
28.04.2020 07:44
Joker455
28.04.2020 07:44
gremorixiii
15.04.2019 17:39
ilya494
30.05.2019 22:20
Reshebnikov
29.04.2020 18:19
gavric228
29.04.2020 18:19
vikyliya
29.04.2020 18:19
yuliaprok61yulia1206
18.12.2019 19:34
Популярные вопросы
- Постройте розу ветров по данным: январь-20,февраль-10,март-10,апрель-30,май-25,июнь-35,июль-15,август-15.сентябрь-5,октябрь-15,ноябрь-20....
3 - Какая масса соли выпадает в осадок в результате реакции обмена между раствором...
2 - Скорость вертолёта в 6 раз больше скорости машины . вертолёт пролетел за 2 час...
3 - Как можно написать сочинение рассуждение на тему моя профессия хирург...
2 - Роман делит все числа 1 2 3 4 5 6 7 8 9 10 на несколько групп так,чтобы сумма...
2 - Сочинение на тему спорт в моей жизни ( 100 слов)...
2 - Прочитайте. добавьте подходящие по смыслу слова. запишите их, разделив для переноса....
1 - Снужно шарик, масса и заряд которого m=20мг и q=12нкл соответственно, перемещается...
2 - Вшколе 1750 учеников, среди которых 840 мальчиков. на сколько больше процентов...
3 - Кого лучше купить в магазине магнит ? 1. кот в сапогах 2. пингвин...
1
1
var a,b,p:integer;
begin
writeln('Введите длину');
readln(a);
writeln('Введите ширину');
readln(b);
writeln('Периметр прямоугольника = ',2*(a+b),' см')
end.
2
var a:integer;
begin
writeln('Введите число');
readln(a);
if a > 0 then a:= a + 1;
if a < 0 then a:= a - 6;
if a = 0 then a:= 16;
writeln(a);
end.
3
var a:integer;
begin
writeln('Введите число');
readln(a);
if a > 0 then a:= a * 5;
if a < 0 then a:= a * a;
if a = 0 then a:= 15;
writeln(a);
end.
4
var a,b:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
if a > b then writeln(a)
else
writeln(b);
end.