Program al;
var a,b:integer ;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
if (a<0) and (b<0) then writeln(a*b)
else
writeln(a+b);
readln;
<span>end.</span>
4.
Условие: время >=19.00ч.
Действие: «Зайти домой» или «Играть
дальше»
5.
Циклический:
6.
Входные данные: а, b, c
Результат: p = 10
Надеюсь вам можно использовать массивы, если нет, то скажите, переделаем
Делаешь цикл от 16 до 10000.
Проверяешь каждое число кратно ли оно 2 (mod, %),
если да, кратно ли 16,31