Ответы
Ответ дал:
1
N1
var
x:integer;
begin
readln(x);
if x mod 7 = 0 then write('да')
else write('нет');
end.
N2
var
x,y:integer;
begin
readln(x);
if x < 0 then y := -3 * x
else y := x + 5;
write(y);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
6 лет назад