Регистрация
virabasusta
03.12.2022 20:44
Информатика
Есть ответ 👍

Abc pascal найти количество нулевых цифр строки.

300
500
Посмотреть ответы 2

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

мага05051
мага05051
4,4(77 оценок)
Pascalabc.net 3.2 begin   writeln(readstring.where(x -> x = '0').count); end. пример ввода: пример вывода: 1
ТанечкаКоновалова
ТанечкаКоновалова
4,8(51 оценок)
Program sp_pesen; const n=2; {количество песен} type songs = record {описание записи} naz: string[10]; stil: string[10]; time: real; name: string[20]; end; var m: array[1..n] of songs; {массив песен} i: 1..n; begin {ввод} for i: =1 to n do with m[i] do   begin   write('введите название песни ',i,' '); readln(naz);   write('введите жанр песни '); readln(stil);   write('введите длительность песни в минутах '); readln(time);   write('введите исполнителя ',i,' '); readln(name);   writeln;   end; {вывод результата} writeln('названия песен в стиле rap'); for i: =1 to n do with m[i] do   if stil = 'rap' then   writeln(naz: 6,stil: 8,time: 9: 1,name: 5); writeln; writeln('название стиль длительность'); for i: =1 to n do   with m[i] do   if (time > =2)and(time< =3)and(name='string')then   writeln(naz: 6,stil: 8,time: 9: 1,name: 5); writeln; end.

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