Предмет: Информатика,
автор: pasharad1p4stma
Найдите первое число которое кратное 7, не кратное 3, и на конце 3
pasharad1p4stma:
Нужно написать программу на языке Паскаль
Ответы
Автор ответа:
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.
//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