ввести 2 числа. если первое число отрицательное, а второе кратно 5, то увеличить их сумму на 6, в проьивном случае - уменьшить их сумму в 2 раза
10-11 класс
|
var
a, b: integer;
begin
writeln('vvedite 1 chislo:');
readln(a);
writeln('vvedite 2 chislo:');
readln(b);
if (a<0)and((b mod 5)=0) then writeln('resultat ',a+b+6)
else writeln('resultat ',(a+b)/2)
end.
Другие вопросы из категории
Читайте также
выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
последовательностью; если нет то увеличить число в 2 раза
(Умножение на 2),(Стереть последнюю цифру)
A) числа 7 из числа 361:
Б) числа 14 из числа 457: