Алексей Паникаров
Задача по информатике, нужно написать на языке Turbo Pascal.
Ввести 2 числа, если модуль 2 больше 40, а 1 делится на 5 без остатка, то сложить эти числа. В противном случае вывести на экран слово "Привет! ".
Ввести 2 числа, если модуль 2 больше 40, а 1 делится на 5 без остатка, то сложить эти числа. В противном случае вывести на экран слово "Привет! ".
Задача простая, как-то так будет:
uses
Crt;
var
a, b : integer;
begin
clrscr;
writeln('Введите a и b');
readln(a,b);
if ( abs(b) > 40 ) and ( a mod 5 = 0 ) then
writeln('Сумма a + b = ',a+b)
else
writeln('Привет!');
readkey;
end