Дан одномерный массив a, размер n. найти количество элементов значение, которых равно семи. если таких элементов нет - выдать об этом сообщение. (нарисовать блок-схему)
123
185
Ответы на вопрос:
program abc;
var x,a,b,c: integer;
begin
writeln('vvedite chislo');
readln(x);
a: =x div 100;
b: =x mod 100 div 10;
c: =x mod 10;
writeln(a+b+c);
end.
Популярно: Информатика
-
kolyanikolay20016.06.2023 17:19
-
mashasandalkina19.01.2020 05:52
-
Qwer94825.08.2021 10:09
-
ПрофессиАНАЛ05.01.2021 08:26
-
sofiko0716101.01.2021 17:44
-
Ябулочкасизюмом20.02.2023 15:11
-
nevidomskyamarg03.02.2020 14:16
-
8905168200715.01.2023 17:47
-
aliyashachkasa21.12.2022 03:09
-
zombi1722.11.2022 22:38