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

143

189

Посмотреть ответы 3

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

Вика7473

Информатика

4,4(95 оценок)

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 = 38s = 11 p = 24 sr = 5.50

Huliganka3009

Информатика

4,6(2 оценок)

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.