1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от
5-9 класс
|
деления, иначе остаток от деления. Пожалуйста с понятным решением..
1)
var
a,b:integer;
begin
readln (a,b);
if (a mod 2 =0) and (b mod 2=0) then writeln (a+b);
if (a mod 2<>0) and (b mod 2<>0) then writeln (a-b);
end.
2)
var
a,b:integer;
begin
readln (a,b);
if (a+b>1) then writeln (a mod b)
else
writeln (a div 10);
end.
Другие вопросы из категории
А<B<C. проверьте алгоритм трассировкой при разных вариантах значений исходных данных:))
программу расчета нормы полива в теплице (л/м) по формуле:M=0,1*h*d*(-),
Читайте также
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
1)Дано целое число ,если оно не четное ,то увеличить его на 3,иначе увеличить его в 5 раз.
2)Даны 2 числа вещественного типа не равные друг другу.Меньшее из них заменить половиной их суммы ,а большее - их удвоенным произведением.
3)Даны 2 числа k и m.Если первое число отрицательно ,то его значение заменить его модулем;иначе второе число заменить единицей .Результат (оба числа) вывести на экран.
Даны два числа, если второе число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения