1. Информатика
  2. Решите информатику поскореепаскаль

Решите информатику поскореепаскаль

obsharov7 obsharov7    2   28.05.2019 22:26    0

Ответы
gamezarif gamezarif  01.10.2020 13:57

Var a,sum,count:integer;

Begin

Repeat

Read(a);

If a mod 9=0 then begin

Count:=count+1;

Sum:=sum+a;

End;

Until a=0

If sum = 0 then write('no')

Else write(sum/count);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alisa332 alisa332  14.11.2020 14:28
1. Для перезаписи цифрового видео, а также захвата аналогового видео и аудио служитокно:a) Monitor6) TimelineB) Exportc) Capture​...
Xeitm Xeitm  14.11.2020 14:38
сделать проект по информатике на тему: Сетевые и телекоммуникационные сервисные программы. И план по этапно. Очень нужно ​...
мамаеб228 мамаеб228  26.11.2021 06:42
1. Создайте алгоритм вычисления суммы чисел от 1 до n кратных к 5. 2. Создайте алгоритм вычисления значения выражения y = sin 0+ sin 0,1 + sin 0,2 + ... + sin n. 3....
ELiNa98653742 ELiNa98653742  23.06.2019 22:40
1) скорость передачи данных через adsl-соединение равна 1024000 бит/c. передача файла через данное соединение заняла 5 секунд. определите размер файла в килобайтах....
AnnyMay2629 AnnyMay2629  25.03.2021 16:44
Даны два слова. Для каждой буквы первого слова (в том числе для повторяющихся в этом слове букв) определить, входит ли она во второе слово. Например, если заданные...
Kamjla1 Kamjla1  25.03.2021 16:36
Що відбувається на етапі компютерного експеременту після завершення побудови компютерної моделі?...
cat0708200416 cat0708200416  25.03.2021 16:35
Паскаль ! цикл с условием вывести кубы чисел от 20 до 3...
СaБIНw СaБIНw  14.12.2020 18:41
4)Что будет выведено на экран после выполнения фрагмента программы: begina:=10;if a 30 then а:=5 else a:=a+1;writeln (а);end.​...
maximpopov2001 maximpopov2001  14.12.2020 18:43
вариант 1. ((1 & 0) & 1) 2. ((1 v 0) v А) 3. (1 & 1) & (1 v 0) 4. ((1 v 0) v В) & (1 v A)...
ankaschamina20 ankaschamina20  14.12.2020 18:43
Программада қандай шаблондар бар? *​...

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