1. Информатика
  2. Блок схема по информатике, хелп

Блок схема по информатике, хелп 2шт 1. Блок схема произведения цифр четырехзначного числа
2. Блок схема: найти количество четных и нечетных цифр данного натурального числа

Ewa11 Ewa11    3   29.05.2021 22:53    4

Ответы
liana144 liana144  28.06.2021 23:54

var

 a, b, k : integer;

begin

 k := 0;

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

 readln(a);

 while a <> 0 do

 begin

   b := a mod 10;

   if b mod 2 = 0 then inc(k);

   a := a div 10

 end;

 writeln('количество четных цифр: ', k)  

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
sopyryaeva1976 sopyryaeva1976  02.12.2020 22:34
Объясните почему мы пишем for x:=1 to N-1 do if a[x]=a[x+1] then inc(k); Почему там N-1 и a[x]=a[x+1] uses crt; const N=10; var a:array [1..N] of integer; x,k:integer; begin for...
mrden3333 mrden3333  04.07.2019 11:30
паскаль 8 класс! напишите программу, которая строит таблицу истинности для логической формулы (not a)or(not b)or c. подумайте сколько вложенных циклов вам понадобиться....
leraanufrieva leraanufrieva  04.07.2019 11:30
Костя случайно разорвал листок с ip- адресом локального сервера на 4 части восстановите ip - адрес .64 2. 16 16 8. 132...
OneDirection2412 OneDirection2412  29.06.2019 18:20
Создать программу вычисления объёма цилиндра...
DenisGaleev DenisGaleev  29.06.2019 18:20
(паскаль или delphi) написать программу поиска двухзначных чисел, удовлетворяющих следующему условию: если к сумме цифр числа прибавить квадрат этой суммы, то получится само число....
maxim090 maxim090  29.06.2019 18:30
1)дан массив,состоящий из целых чисел. найдите минимальный элемент и индекс. 2)дан массив, состоящий из целых чисел. найдите максимальный элемент в массиве....
eX6ToR eX6ToR  29.06.2019 18:30
За сколько секунд модем, информацию со скоростью 28800 бит/с,может передать 2 страницы текста объемом 3600байт?...
Sasha03kms Sasha03kms  29.06.2019 18:30
Как решить такой циклический алгоритм? что здесь что? что из чего и сколько раз вычитаем? объясните сам ход действий, ! var k,s: integer; begin s: =60; for k: =5 to 10 do s: =s-k;...
anastasia4571 anastasia4571  29.06.2019 18:30
Выручайте, написать программу в паскале: даны два целых числа: d (день) и m (месяц), определяющие правильную дату не високосного года. вывести значения d и m для даты, предшествующей...
Stasichek1 Stasichek1  29.06.2019 18:30
Напишите ответ с решением. максимальная скорость передачи данных по модемному протоколу составляет 56000 бит/с.какое максимальное количество байт можно передать за 5 секунд по...

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