tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Спо паскалю! (p.s. мы только
Спо паскалю! (p.s. мы только начали цикл while) организован ввод чисел оканчивающихся нулём. посчитать сумму и количество чисел делящихся на a.
Кисик1705
3 25.08.2019 03:50
3
Ответы
1castiel03
02.08.2020 23:14
Var
S:real;
A,C,N:integer;
Begin
N:=0;
S:=0;
Write('A = ');ReadLn(A);
WriteLn('Введите последоваельность чисел:');
Read(C);
While C <> 0 do
Begin
if C mod A = 0 then
Begin
S:=S+C;
N:=N+1;
End;
Read(C)
End;
WriteLn('S = ',S);
WriteLn('N = ',N);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Ddoj
27.02.2021 09:16
6. (Python) Какие числа будут отображены на экране после выполнения программы? х = 10b = х + 4x = b - Xprint (x, b)...
Екатерина20876
27.02.2021 09:16
4. Какими будут результаты выполнения данных операторов? a) print (sum)b) print ( sum )c) print ( sum= , sum) Python ...
dumbschoolkid
27.02.2021 09:02
даны строки A, B и C, состоящие только из цифр.1) Выведи эти строки слитно на экран.2) преобразуй эти строки в целые числа и найди их сумму....
ibragimgadjizad
14.04.2020 08:26
Сколько литров краски потребуется для того, чтобы покрасить пол в комнате, если известны длина (m метров) и ширина (n метров) комнаты. Расход краски составляет 1 литр на 10 м2. Составте...
Nicner120
14.04.2020 08:27
Перечисли основные элементы интерфейса приложения Sketch Up?...
Davidovaliza
14.04.2020 08:27
Нужна задание по информатике...
GiraAronEchwik
14.04.2020 08:27
Каким вариантом представления информации посредством изображений является кино и видеоизображениестатичнымпассивнымдинамичным...
lenochkasadyho
14.04.2020 08:27
Решить информатику, язык программирования BASIC 2 номера...
addj1404
14.04.2020 08:27
Информатика 10 класс массивы...
Alaaxbek
14.04.2020 08:27
2. Каковы принципы разработки алгоритма? 4. Какими свойствами обладает алгоритм? Какие виды описания алгоритма существуют? 5. Почему важно применять стандартные алгоритмы в процессе...
Популярные вопросы
Найти сравнение и реши. 1) высота рябины 3 м берёза выше в 2 раза. найди высоту...
3
(13/20-x)+5/20=15/20 решите уравнение...
2
Какие есть заповедники и национальные парки в тайге? : 3...
1
Решить уравнение 14 (2x-3)-5 (x+4)=2 (3x+5)+5x...
1
Из городов м и а, расстояние между которыми равно 40 км, вышли одновременно навстречу...
3
До обеда дедушка сорвал с дерева 25 груш...
2
Скакой силой вода давит на дно аквариума глубиной 30см? плошадь аквариума 15 см...
2
Решите уравнение а)х : 0,9=2,4 : 7,2...
1
Решите : цена книги-300 тенге, цена карандаша-10 тенге. на сколько дороже книга,...
1
Периметр прямоугольника равен 72 см,а ширина-21 см.найдите длину и площадь прямоугольника...
1
S:real;
A,C,N:integer;
Begin
N:=0;
S:=0;
Write('A = ');ReadLn(A);
WriteLn('Введите последоваельность чисел:');
Read(C);
While C <> 0 do
Begin
if C mod A = 0 then
Begin
S:=S+C;
N:=N+1;
End;
Read(C)
End;
WriteLn('S = ',S);
WriteLn('N = ',N);
End.