evainvest1
?>

Вывести четырёхзначное число и посчитать среднее арифметическое цифр в паскале

Информатика

Ответы

nikitavertiev98400
Var
A,S:integer;
Begin
Write('A = ');ReadLn(A);
While A<>0 do
Begin
S:=S + A mod 10;
A:=A div 10;
End;
WriteLn('S = ',S/4)
End.

Ну или так:

Var
A,S:integer;
Begin
Write('A = ');Read(A);
S:=S + A mod 10;
S:=S + (A div 10) mod 10;
S:=S + (A div 100) mod 10;
S:=S + A div 1000;
Write('S = ',S/4)
infocenterbla

о каляска не бей я тоже хочу в этом году в тетради или например сказать другу и слушайте как я красиво пою ты на работе хорошо я поняла что это за что извиняетесь я не могу найти в интернете и слушайте как я красиво пою ты на работе хорошо я поняла что это не я а не в курсе что это не я а не в курсе что это не я а не в курсе что это не я а не в курсе что это

Объяснение:

о каляска не бей а ты как я красиво пою ты мне прислал а вам не нужно будет сделать благодаря разных записей в тетради или например сказать другу и слушайте как я красиво пою ты на работе хорошо я поняла что ты вообще не отправляешь задания на проектирование

komplekt7

Информационный процесс — процесс получения, создания, сбора, обработки, накопления, хранения, поиска, распространения и использования информации. Люди знакомые с информатикой, конечно же, знают этот термин, да и не только они. Вполне можно утверждать, что информационные процессы являются основой той жизни, которую мы знаем. В этой статье представлены основные алгоритма информационного процесса, различные формы его исполнения.Любые действия, производимые с информацией, называются информационными процессами. Основную роль тут играют сбор, обработка, создание, сохранение и передача информации.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Вывести четырёхзначное число и посчитать среднее арифметическое цифр в паскале
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

мария Кузив1393
kraevaea
bike-garage8
gallush9
Анна1169
snezhanaklimenkova
Berezovskaya
tatianamatsimoh
sve707ta
delfinmos
EVLAMPIN56
Petrosienko_Larisa,1908
nikolotovas
Bologova Golovach1989
Шарабанов