Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от

5-9 класс

деления, иначе остаток от деления. Пожалуйста с понятным решением..

димон111222 08 окт. 2016 г., 17:51:42 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Pavelmamaev19
08 окт. 2016 г., 20:23:12 (7 лет назад)

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*(W_{1} -W_{2} ),

Читайте также

даны два числа. Если первое число нечетное, то найти сумму кубов, а иначе - куб суммы. даны три числа. Если хотя бы одно из чи

сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.

Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа

ПОМОГИТЕ ОЧЕНЬ ПРОШУ

помогите решить пожалуйстаа)

1)Дано целое число ,если оно не четное ,то увеличить его на 3,иначе увеличить его в 5 раз.
2)Даны 2 числа вещественного типа не равные друг другу.Меньшее из них заменить половиной их суммы ,а большее - их удвоенным произведением.
3)Даны 2 числа k и m.Если первое число отрицательно ,то его значение заменить его модулем;иначе второе число заменить единицей .Результат (оба числа) вывести на экран.

Помогите написать в Pascal.

Даны два числа, если второе число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения



Вы находитесь на странице вопроса "1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.