Регистрация
Anastaskip
06.04.2020 18:25
Информатика
Есть ответ 👍

С, ! написать блок-схему и программу для № 115: дано натуральное число n. определить количество нулей среди всех цифр числа n. паскаль.

293
320
Посмотреть ответы 3

Ответы на вопрос:

napolskai24
napolskai24
4,5(85 оценок)

ответ:

прости не могу , мы такое проходили, просто работали не в той программе

kair7775550
kair7775550
4,7(4 оценок)

ответ: 0

var a: string;

k,i: byte;

begin

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

k: =0;

for i: =1 to length(a) do begin

if a[i] = '0' then begin

k: = k + 1;

end; end;

write('количество нулей: ',k);

end.

0

ахаххахаха11
ахаххахаха11
4,6(84 оценок)
  var     d,m: byte; begin write('введите день: '); readln(d); write('введите месяц: '); readln(m); case m of 3: if d< 21 then write('рыбы')   else write('овен'); 4: if d< 21 then write('овен')   else write('телец'); 5: if d< 22 then write('телец')   else write('близнецы'); 6: if d< 22 then write('близнецы')   else write('рак'); 7: if d< 23 then write('рак')   else write('леа'); 8: if d< 24 then write('леа')   else write('дева'); 9: if d< 24 then write('дева')   else write('весы'); 10: if d< 24 then write('весы')   else write('скорпион'); 11: if d< 23 then write('скорпион')   else write('стрелец'); 12: if d< 22 then write('стрелец')   else write('козерог'); 1: if d< 21 then write('козерог')   else write('водолей'); 2: if d< 19 then write('водолей')   else write('рыбы'); else write('нет такого месяца') end; end.

Популярно: Информатика