1) даны два числа.если они оба четные, то найдите сумму чисел, иначе разность. 2) даны два числа. если сумма чисел больше 1, то найдите целую часть от деления, иначе остаток от деления. с понятным решением..
valeriya309
1
19.05.2019 03:40
3
Другие вопросы по теме Информатика
grizzly15
22.02.2021 09:53
zirkakoi
22.02.2021 09:53
диана2440
22.02.2021 09:54
fjfnk
22.02.2021 09:55
валериякотик19
22.02.2021 09:55
Mihael13
22.02.2021 09:56
ytxrgh
22.02.2021 09:56
АбрамоваАлесия1
13.05.2020 07:22
Популярные вопросы
- Можете составить словосочетания со словом стелить не менее двух...
3 - От чего зависит сила реакции опоры?...
2 - На 3 полках стояло 305 книг.на первой в два раза больше чем на второй.а на третей...
2 - Слитное и раздельное написание не с причастиями....
2 - Лексический разбор слова синтаксис! в лексическом значение надо определить стилистическую...
2 - Complete the sentences by using the correct form of the words in brackets. (10...
3 - 1. : найди неизвестную величину, используя формулы объёма прямоугольного параллелепипеда...
1 - Какие современные материалы и технологии могут сделать труд шахтера более комфортным...
3 - Заранее найдите значение выражение: 35^3+125 9^3-17*27 (8^3-12)^4 5^3+5^2...
3 - Формула соединения азота (|||) с водородом...
1
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.