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

Составить программу которая считает количество цифр 7 в записи натурального числа.

PASCAL

karinakarim karinakarim    3   19.05.2020 15:25    1

Ответы
Vikasuk Vikasuk  15.10.2020 00:39

var

 a, count: integer;

begin

 count := 0;

 read(a);

 while a > 0 do

 begin

   if a mod 10 = 7 then

     count := count + 1;

   a := a div 10;

 end;

 writeln(count);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Katiadimova3 Katiadimova3  13.09.2019 02:00
Что называется алгоритмом? выберите один ответ: алгоритм - описание последовательности действий (план), для решения . алгоритм - примерный план для решения . алгоритм - описание...
elenastennikova elenastennikova  13.09.2019 02:00
Перечислите не менее пяти друг друга, используя язык жестов и мимики...
hcjdbghfgyfjfh hcjdbghfgyfjfh  13.09.2019 02:00
Интернет-тариф ночь с 7: 00 до 24: 00 обеспчивает максимальную скорость передачи данных по каналу 2,4 мбит/секунду и с 24: 00 - 7: 00 - 4 мбит в секунду. определите, сколько секунд...
pollyholly123 pollyholly123  19.10.2020 14:08
Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых приведена в таблице. Отсутствие числа в таблице означает, что прямой дороги между пунктами...
алина677323 алина677323  19.10.2020 14:08
Сообщение из 60 символов создается с использованием 64-значного алфавита. Каково информационное содержание сообщения? (64 = 2⁶, поэтому один символ кодирует 6 бит)​...
ДаРоВаНиЕ ДаРоВаНиЕ  19.10.2020 14:08
Переведите с Паскаля на C++ или питон x, numDel, i, j: longint; d: array[1..2] of longint; begin for i := 148207 to 148231 do begin numDel := 0; for j := 2 to i div 2 do begin...
nikita1424 nikita1424  19.03.2020 16:25
перевести код с Pyton на ПаскальV_1 = int(input())V_2 = int(input())If V_1 V_2:Print( Первый V_1 )If V_1 V_2:Print( Первый V_2 )​...
genri5673 genri5673  19.03.2020 16:25
Выполните перевод единиц измерения информации и сравните два выражения (поставьте , , =)1800 байт+80 бит и 1 Кбайт+80 байт​...
лика03481 лика03481  12.07.2022 18:36
Сколько существует натуральных чисел X, которые удовлетворяют следующему двойному неравенству : на фото В ответе укажите только одно целое число - количество таких x...
sovuhe465 sovuhe465  12.07.2022 20:54
Мы решили выполнить кластеризацию с использованием алгоритма K-средних с использованием метода Ллойда. После этапа привязки векторов признаков к их кластерам в алгоритме k-средних,...

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