Задать вопрос
17 октября, 01:55

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

+5
Ответы (2)
  1. 17 октября, 03:23
    0
    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
  2. 17 октября, 03:49
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите с задачей в pascal. введите символ с клавиатуры Найдите сумму произведение и среднее арифметическое и среднее геометрическое цифр ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы