Дано два числа . Если числа положительны , то уменьшите их на 2 . Если
числа отрицательны , то увеличить их на 2 . Если первое положительное , а второе отрицательно , то найти их произведение . Если первое отрицательно , а второе положительно , то найдите их разность
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
gadelgarifullin
program zz1;
var a, b, p, s:integer; //задаем переменные целого типа
begin
write(' введите первое число '); // вводим с клавиатуры первое число
read(a);
write(' введите второе число '); // вводим с клавиатуры второе число
read(b);
if (a > 0) and (b > 0) then begin a:= a - 2; b:= b - 2; write(' полученные числа: а = ', a, ' b = ', b);end;
if (a < 0) and (b < 0) then begin a:= a + 2; b:= b + 2; write(' полученные числа: а = ', a, ' b = ', b);end;
if (a > 0) and (b < 0) then begin p:= a * b; write(' произведение чисел = ', p); end;
if (a < 0) and (b > 0) then begin s:= a - b; write(' разность чисел = ', s); end;
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
