Вывести четырёхзначное число и посчитать среднее арифметическое цифр в паскале
268
349
Ответы на вопрос:
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)
Ключевые кадры могут содержать любое изображение, они независимы друг от друга. обычные же кадры содержат в основном то же изображение, что и предыдущий ключевой кадр.
Популярно: Информатика
-
tatiana34207.01.2023 08:49
-
13032005mahri10.12.2020 06:06
-
sergio2014p06q4e15.08.2021 13:52
-
Yuran311.04.2022 23:40
-
den2424denoztwre07.04.2020 11:24
-
Diamond111111117.06.2022 11:31
-
viktoria12398765011.09.2020 08:53
-
emalyustova14.01.2021 15:51
-
oll514.09.2020 23:02
-
Пупс201422.04.2020 13:02