Ответы
Ответ дал:
0
Странное условие! Неужели, чтобы быть кратным трем, число всего лишь должно быть меньше 70?
Но раз так задача стоит, получите...
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if (n mod 3=0) or n<70 then Writeln('Это число кратно трем')
else Writeln(n+1)
end.
Но раз так задача стоит, получите...
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
if (n mod 3=0) or n<70 then Writeln('Это число кратно трем')
else Writeln(n+1)
end.
Ответ дал:
0
//Согласен, весьма странное условие, вот старенький паскаль для разнообразия
var
a:integer;
Begin
Read(a);
if (a < 70)or(a mod 3 = 0) then Writeln('Это число кратно трем')
else Writeln(a + 1);
end.
var
a:integer;
Begin
Read(a);
if (a < 70)or(a mod 3 = 0) then Writeln('Это число кратно трем')
else Writeln(a + 1);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
8 лет назад
8 лет назад