В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
mipad0302
mipad0302
25.11.2021 12:57 •  Информатика

Св pascal.введите символ с клавиатуры найдите сумму произведение и среднее арифметическое и среднее цифр его кода

Показать ответ
Ответ:
olardaniil2017
olardaniil2017
07.10.2020 16:35
Var c:char; a,s,p,k:integer;
begin
readln(c);
a:=ord(c);
writeln('code = ',a);
s:=0; k:=0; p:=1;
while a>0 do
 begin
 s:=s+a mod 10;
 p:=p*(a mod 10);
 k:=k+1;
 a:=a div 10;
 end;
writeln('s = ',s,' p = ',p,' sr = ',s/k:5:2);
end.

Пример:
&
code = 38
s = 11 p = 24 sr = 5.50
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота