Регистрация
Aieks01
23.01.2022 15:37
Информатика
Есть ответ 👍

Сделать презентацию по теме "счётные машины"

273
494
Посмотреть ответы 1

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

Nastia200704
Nastia200704
4,6(15 оценок)
//pascal abc.net 3.1 сборка 1219 //школьный вариант var   s: string;   p: real;   se: set of char;   i: integer; begin readln(s); se: =['0','1','2','3','4','5','6','7','8','9']; for i: =1 to length(s) do if s[i] in se then begin   p: =p+1;   write(s[i]); end; p: =p/(length(s)/100); writeln; writeln('percent=',p); end. //альтернативный вариант var   s: string;   se: set of char; begin readln(s); se: =['0','1','2','3','4','5','6','7','8','9']; s.where(x -> x in se).println; writeln('percent=',s.where(x -> x in se).count/(length(s)/100)); end. пример ввода: i3artle, caster, 1 of 7 summoned characters. пример вывода: 317 percent=6.81818181818182

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