Ща сколько минут скачается фаил если надо скачать 1 гб а скорость скачивания 900кб
263
315
Ответы на вопрос:
ох уж не знаю, права я или нет : d
но вот я бы сделала
beginreadln(a); {тут мы вводим число, которое будем проверять: делится оно на три или нет}s : = 0; {это у нас будет сумма цифр числа }while a< > 0 dobeginb : = a mod 10; {выделяем последнюю цифру}s : = s + b; {находим сумму}a : = a div 10 {переходим к следующей цифре}end; if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}writeln('число делится на три')elsewriteln('число не делится на три')end.
Популярно: Информатика
-
sasha23z24.07.2022 01:05
-
elik2007.05.2020 00:53
-
alferovasnega22.07.2022 00:31
-
fraumiss9326.11.2022 15:15
-
driftsmuk101.08.2022 18:29
-
olgayabs76oxczon19.06.2022 14:07
-
Anele200324.02.2023 22:01
-
DeltaMintz02.06.2023 07:07
-
Деструктивный04.05.2023 02:13
-
nevzorovivan20030.09.2020 01:16