упорядочить массив двузначных чисел [10] в порядке неубывания (методом прямого обмена) в паскале
165
260
Ответы на вопрос:
var i,k:integer;
begin
k:=0;
for i:=10 to 80 do
if i mod 7=0 then k:=k+1;
write('Чисел, кратных 7=',k);
readln
end.
Популярно: Информатика
-
azharalol14.05.2020 22:45
-
dotafign908.01.2023 14:08
-
LionesBastia30.08.2021 01:29
-
BigZnaniaFiziki22.12.2020 08:06
-
cvetok55530.06.2022 14:06
-
обгрейд12.03.2020 12:29
-
vadimmatus30.09.2022 13:44
-
lubochka212.07.2021 03:08
-
Pandorica15.02.2022 05:22
-
ленура2121.02.2023 01:17