1. Информатика
  2. написать алгоритм (не на

написать алгоритм (не на языке программирования) на школьном а-я​

Ева433 Ева433    1   14.10.2019 15:14    1

Ответы
xxx5639 xxx5639  10.10.2020 06:37

var a,k:integer;

begin

readln(a);

k:=0;

while a>0 do

begin

if a mod 10 = 1 then k:=k+1;

a:=a div 10;

end;

writeln('k = ',k);

end.

Пример:

31815

k = 2

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
arsenenkodiana6 arsenenkodiana6  15.04.2021 16:51
Знайти суму цілих додатніх чисел, більших 20, менших 100 і кратних 3....
KateKein KateKein  15.04.2021 16:53
Var x: integer; begin x:= 1000; while x 0 do begin write (x, -7= ); x:= x-7 writeln(x); delay(50); end; end. Встречено writeln , а ожидалось ; , как пофиксить...
MSТигруля MSТигруля  15.04.2021 16:55
ЯЗЫК С++ Занятия в полугодии В первом полугодии 2019-2020 учебного года занятия проходят с 1 по 8 и с 10 по 17 недели (девятая неделя - каникулы). В расписании одного из классов...
ksenia112005 ksenia112005  30.01.2022 06:24
с заданием по информатике Составить маску к следующим файлам: 1) torg.txt 2) tort.do 3)port.zip 4)portal.xmlx...
Алексей22891 Алексей22891  30.01.2022 06:23
ПРАКТИЧЕСКОЕ ЗАДАНИЕ 1. Создайте контент, исходя из задач, сформулированных для сайта, оформите заголовки страниц. 2. Создайте страницы для сайта, 3. Наполните страницы сайта...
katuschaglebtsc katuschaglebtsc  30.01.2022 06:22
РАЗБЕРИТЕ РАБОТУ ПРОГРАММЫ И ОТВЕТЬТЕ НА ВОПРОСЫ...
mainaalikuliev mainaalikuliev  30.01.2022 06:22
Напишите программу для вычисления значения выражения (a+b)*c/x²+y². Python...
samyi116umni samyi116umni  14.02.2021 12:28
Дано вещественное число Х. Вычислить значение полинома:2х^4 – 3х^3 + 4х^2 – 5х + 6ЧЕРЕЗ ПАСКАЛЬ ABC...
аня2939 аня2939  14.02.2021 12:26
Основной системой счисления в компьютере является?​...
bkonok832 bkonok832  14.02.2021 12:26
При решении какого типа задач необходимо использовать циклические операторы?​...

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