От ленты длиной 2 м 40 см отрезали 3\8 ее длины. Найдите длину оставшейся части.
216
377
Ответы на вопрос:
uses crt;
var i,n:integer;
begin
clrscr;
writeln('vvedite n');
readln(n);
for i:=1 to n do
if (i = 2) or (i = 3) or (i = 5 ) or (i = 7) then write(i:3) else
if (i mod 2 <> 0) and (i mod 3 <> 0 ) and (i mod 5 <> 0) and (i mod 7 <> 0) then write(i:3);
readkey;
end.
var i,n:integer;
begin
clrscr;
writeln('vvedite n');
readln(n);
for i:=1 to n do
if (i = 2) or (i = 3) or (i = 5 ) or (i = 7) then write(i:3) else
if (i mod 2 <> 0) and (i mod 3 <> 0 ) and (i mod 5 <> 0) and (i mod 7 <> 0) then write(i:3);
readkey;
end.
Популярно: Другие предметы
-
Ruslan111111112302.03.2023 15:45
-
natka503198010.02.2021 13:16
-
элюсся530.06.2020 14:01
-
Dipper1719.11.2020 06:19
-
tusovki05.04.2023 14:15
-
dyakyla30.10.2021 12:55
-
Kaspiii24.07.2021 10:31
-
Богдан228166716.11.2022 08:21
-
игорь77810.01.2021 01:50
-
barinovasonya0p00t3v23.07.2022 20:42