Pascal abc: найти среднее арифметическое цифр введенного 3-значного числа.

281

419

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

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

Baby2001

Информатика

4,8(69 оценок)

Program zadanie; label 1; var a,i,r,nb: integer; sr: real; begin 1: writeln('введите трехзначное число a'); read(a); r: =0; nb: =0; while a> 0 do begin i: =a mod 10; r: =r+i; nb: =nb+1; a: =a div 10; end; if nb=3 then begin sr: =r/nb; writeln('сумма цифр = ',r); writeln('среднее арифметическое = ',sr); end else goto 1; end.

пике5

Информатика

4,5(13 оценок)

На протяжении последних 35 лет бренд Intel ассоциируется с революцией в мире компьютерных технологий. Деятельность и продукты этой компании действительно изменили мир. Сегодня американский гигант продолжает оставаться одним из лидеров сразу в нескольких сегментах: вычислительные системы, программное обеспечение, сетевые и коммуникационные продукты