Помогите с задачей в pascal.введите знак с клавиатуры Найдите сумму творенье

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

Задать свой вопрос
2 ответа
Var c:char; a,s,p,k:integer;
begin
readln(c);
a:=ord(c);
writeln('code = ',a);
s:=0; k:=0; p:=1;
while agt;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.

Пример:
amp;
code = 38
s = 11 p = 24 sr = 5.50
Var
a,b,c: integer;
begin
writeln('Введите 3 числа: ');
readln(a,b,c);
writeln(a,' + ',b,' + ',c,' = ',a+b+c);
writeln(a,' * ',b,' * ',c,' = ',a*b*c);
writeln('Среднее арифметическое чисел = ',(a+b+c)/3);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт