Войти Регистрация Спроси ai-bota

Спо паскалю! (p.s. мы только начали цикл while) организован ввод чисел оканчивающихся нулём. посчитать сумму и количество чисел делящихся на a.

Показать ответ

Ответ:

ВикторияЛинкольн

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.

0,0(0 оценок)

Популярные вопросы: Информатика

uoo32771

20.08.2022 12:10

Напишите программу, которая считает количество чётных цифр введённого числа. ---Входные данные--- Входная строка содержит одно натуральной число N . ---Выходные данные---...

алалайла

09.06.2022 00:46

Какая команда пропущена в данном участке программы отвечающем за поиск минимального элемента массива r:=1; for i:=2 to n do if a[i]...

gurova07

17.12.2022 04:33

У исполнителя Гамма две команды, которым присвоены номера: 1. прибавь 5; 2. умножь на b (b — неизвестное натуральное число; b ≥ 2). Выполняя первую из них, Гамма увеличивает...

vladarzm

25.09.2021 14:54

Прочитайте и ответьте на вопросы...

Xiyneu

28.02.2020 02:18

Напишите функцию sisseastumine(), при запуске которой происходит заполнение двух списков: абитуриенты[], []. Количество элементов в списках ограничивается пользователем...

llopatniseva

01.05.2023 01:28

Напишите программу, которая переводит переданное её целое число (возможно, отрицательное) в восьмеричный код. Используйте процедуру. ---Входные данные--- Входная строка...

ulia115

25.01.2020 23:24

КТО НЕ ЗНАЕТ НЕ ПИШИТЕ...БАН...БАЛЫ НЕ ПОЛУЧИТЕ ЗНАТОКИ новая тема ...не понимаю...нужно решить при перемистительного закона, сочетательного, поглащения, повторения,сочетательного,...

Nosochekxnncnnc

20.03.2021 09:46

СДЕЛАТЬ НА Создайте список b из элементов списка a, которые имеют четные индексы. На складе хранится 20 видов товара. В списке a внесено кол-во единиц каждого товара....

Teacher991

03.02.2021 11:46

Напишите программу, которая выводит полученную последовательность чисел в обратном порядке. Использовать массив для хранения последовательности не разрешается. ---Входные...

anncopper

30.08.2020 13:14

А. Создать таблицу, содержащую сведения о телефонах абонентов. Каждая запись имеет поля - фамилия абонента, год установки телефона, номер телефона. Количество записей...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку