решить задачи в Задачи
1. Вычислите периметр прямоугольника. Значения сторон прямоугольника пользователь вводит с клавиатуры.
2. Дано целое число (пользователь вводит с клавиатуры). Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 6; если нулевым, то заменить его на 16. Вывести полученное число.
Выберите правильную программy:
А
Б
В
3. Написать программу (по аналогии, задача 2) .
Дано целое число. Если оно является положительным, то умножить его на 5; если отрицательное, возвести его в квадрат; если нулевым, то заменить его на 15. Вывести полученное число.
4.Вывести наибольшее число из двух чисел. Два числа вводит пользователь с клавиатуры.
253
318
Ответы на вопрос:
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.
Популярно: Информатика
-
GRIEZMAN78904.02.2022 14:32
-
Волвлчлчлч22.06.2023 22:02
-
manshev201814.06.2022 02:31
-
vladik2ppp01.09.2020 09:18
-
baschckinaekat10.12.2022 18:59
-
криссть11118.04.2023 05:37
-
moskalenkovlad110.09.2020 23:47
-
transformer5627.03.2022 01:53
-
Viky201630.06.2020 11:31
-
zhurovalyuda08.07.2020 05:37