Регистрация
singarella123
23.03.2022 21:53
Информатика
Есть ответ 👍

Напишите программу для решения . используйте операции div и mod. 1. задано двузначное число. найдите среднее арифметическое цифр числа.

254
443
Посмотреть ответы 2

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

yyeyheh
yyeyheh
4,7(35 оценок)
Var a,b,c: integer; s: real; begin write('введите двузначное число: '); readln(a); b: = a div 10; c: = a mod 10; s: =(b+c)/2; writeln('среднее арифметическое цифр числа: ',s); readln; end.
Nastya162005
Nastya162005
4,5(31 оценок)
Program  pr; var  a:   array  [1..5]  of  integer; i:   integer; begin for  i: =  1  to  5  do read(a[i]); for  i: =  1  to  5  do write(a[i]: 5); writeln; for  i: =1  to  5  do if a[i]  mod  2  < > 0  then  a[i]: =0; for  i: =  1  to  5  do write(a[i]: 5); end.

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