Окр.мир какие сталицы можно сделать из букв астбаваеккинаткирпиимснбусшаневкаилиав
210
416
Ответы на вопрос:
Астана-казахстан,аккра-гана(африка),aнкара-турция,aпиа-самоа(австралия),баку-азербайджан.
Pascal?
var min, max, j, count: integer;
begin
min:=30000;
max:=0;
readln(j);
while j <> 0 do begin
if (j mod 5 = 0) and (j < min) then begin
min:= j;
count:= count + 1;
end;
if (j mod 5 = 0) and (j > max) then begin
max:= j;
count:= count + 1;
end;
readln(j);
end;
if count = 0 then write('NO') else write((min+max)/2);
end.
Популярно: Окружающий мир
-
Коteykа21.06.2021 02:20
-
dog1236124603.05.2023 01:01
-
AndrewDremin01.03.2023 13:14
-
tarasovdanila22.12.2021 20:12
-
Anastasia061020102.10.2021 12:41
-
мари1312101.02.2022 11:50
-
jokerlytvinenkо21.03.2023 14:00
-
Alena1809105.06.2023 10:29
-
90090103.10.2020 04:33
-
vanekroland0129.03.2023 04:50