1. Информатика
  2. Дано два числа. если их

Дано два числа. если их сумма кратна 5, то прибавить 1, иначе вычесть 2. результат вывести на экран.дано два числа. если их сумма кратна 5, то прибавить 1, иначе вычесть 2. результат вывести на экран.написать на языке packal

ипоопан ипоопан    3   12.09.2019 15:20    158

Ответы
Loikov1 Loikov1  07.10.2020 09:54
Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
citceralekseip010ay citceralekseip010ay  27.04.2020 19:41
Что это такое на изображении...
прп30 прп30  27.04.2020 19:41
Проаналізуй послідовність команд: • прочитати число а1; • прочитати число а2; • поділити число а1 на а2; • записати результат...
Maksimka087 Maksimka087  27.04.2020 19:42
Что это такое на изображении...
Nyushata Nyushata  27.04.2020 19:42
Здравствуйте, выполните работу по информатике по абсолютным и относительным ссылкам,...
Dashka250715 Dashka250715  27.04.2020 19:42
1. Существует три типа речных окатанных камней: гравийные (диаметр от 1 до 10 мм), галичниковые (диаметр — от 10 до 100 мм). Как называется третий тип камней?2. Говорят, что...
Grisha222 Grisha222  27.04.2020 19:43
Для ввода результатов в Паскале используется оператор: * end write readln begin Переведите в десятичную систему двоичное число 1010110. В ответ запишите одно число без пробелов...
magoomamedzadeh magoomamedzadeh  27.04.2020 19:43
Чертёжнику был дан для исполнения следующий алгоритм: Повтори 10 раз Сместиться на (−3,−2) Сместиться на (2,2) Сместиться на (3,9 ) конец Какую команду надо выполнить Чертёжнику,...
arturyakovlev1703 arturyakovlev1703  27.04.2020 19:44
Я новичок в среде: низкоуровневого программирования. Нашел интересную задачку: Имеются два массива восьми битных целых чисел со знаком. Сформировать массив частных от целочисленного...
1232962 1232962  27.04.2020 19:44
Дан текст, который вводится с клавиатуры. Составить программу, которая выводит его на экран столько раз, сколько символов в этом тексте....
gigi81 gigi81  27.04.2020 19:44
с информатикой Определить объем памяти, необходимый для хранения 1 страницы растрового графического изображения размером 800*600 точек с палитрой 64 цвета2)256-цветный рисунок...

Популярные вопросы