1. Информатика
  2. Составить программу

Составить программу в Паскаль.

sahrona04 sahrona04    1   22.04.2020 05:39    0

Ответы
K1rysha K1rysha  13.10.2020 15:46

pascal

Объяснение:

var n, s:integer;

begin

 Write('Введите число: ');

 ReadLn(n);

 while n > 0 do

 begin

   if (n mod 10 < 6) then s := s + n mod 10;

   n := n div 10;

 end;  

 WriteLn(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Hiitsmi Hiitsmi  04.11.2020 16:40
Укажите количество пятибуквенных слов, которые можно получить из букв слова КРЫЛЬЦО, в которых никакие две гласные или согласные не идут подряд (буквы в слове могут повторяться)....
adelyavalieva1 adelyavalieva1  04.11.2020 16:41
1. Составить тест- кейс (форма тест-кейса свободная) не менее 25 тестов на работу ресурса https://ru.akinator.com/ . Ожидаемые результаты вы должны продумать самостоятельно....
AliMsi AliMsi  04.11.2020 16:42
1. Для форматування символів потрібно скористатися стрічкою Основна та групою команд ... А) Абзац В) Стилі Б) Шрифт Г) Формула 2. Щоб змінити встановлений розмір аркуша необхідно...
qwerty11115 qwerty11115  18.10.2020 07:45
Для чего Айым использовала блок «если»​...
NoName353647 NoName353647  18.10.2020 07:48
Сервис, предоставляющий удалённый доступ через интернет или локальную сеть к опрелеленным ресурсам (программам, дынным, файлам и тд) что это ?​...
RokiFoki RokiFoki  08.06.2019 08:30
Вычислите длину окружности r=5,6 (паскаль)...
Kioppps Kioppps  08.06.2019 08:30
Что будет нарисовано после выполнения чертежником алгоритма: использовать чертежник алг нач поднять перо смест. в точку (2,4) опустить перо смест. на вектор (-1,0) смест....
gryzzly12 gryzzly12  08.06.2019 08:30
Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: фрегат & эсминец 500 фрегат 2000 эсминец 2500 фрегат...
burdick94 burdick94  09.06.2019 15:30
Как сохранить заметки к в powerpoint? 1при сохранении выбрать формат метафайл windows . 2при сохранении выбрать формат презентация (с заметками) . 3при сохранении презентации...
niloybasak0 niloybasak0  09.06.2019 15:30
Какой результат будет после выполнения следующей программы? var s,d : real; i : integer; begin s: =0 for i: =1 to 49 do begin d: =i*(i+1); s: =s+1/d; end; writeln( s= ,s);...

Популярные вопросы