Предмет: Информатика, автор: pasharad1p4stma

Найдите первое число которое кратное 7, не кратное 3, и на конце 3


pasharad1p4stma: Нужно написать программу на языке Паскаль
arsen27huesos: поищи в решебе

Ответы

Автор ответа: contrlc
0
//Ответ: 133.
//PascalABC.NET

var
  i: integer;
begin
  i := 0;
  while(true) do
  begin
    if((i mod 7 = 0) and (i mod 3 <> 0) and (i mod 10 = 3)) then break;
    i := i + 1;
  end;
  write(i);
end.
Похожие вопросы
Предмет: География, автор: anastasiaku1995
Предмет: Алгебра, автор: timofijasmarmahmud
Предмет: Математика, автор: 984637521