bogdan2041
28.12.2022 22:15

1. Сілтеме дегеніміз не?
2. Мәтіндік құжатта сілтемелердің қандай
дастыруға болады?
3. Сілтемелер бөліміндегі элементтер тобы қандай қызмет атқарады?
4. Сілтемелер және әдебиеттер тізімі элементтер
қандай қызмет атқарады?
5. Атаулардың элементтер тобының қызметі неде?
6. Нысандық көрсеткіш элементтер тобы қандай қызмет
атқарады?
7. Сілтемелер кестесі элементтер тобының қызметі неде?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
z478
11.12.2022 08:14

//PascalABC.Net 3.1 сборка 1200

//написано в стиле обычного паскаля, должно работать

var

   number: integer;

   sum, sum_all, k: integer;

begin

   repeat

       write('Элемент последовательности => ');

       readln(number);

       

       if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;

       if (number <= 100) then k := k + 1;

       sum_all := sum_all + number;

   until number = 0;

   

   writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);

   writeln('Сумма всех = ', sum_all);

   writeln('Кол-во чисел, которые не больше 100 = ', k);

end.

0,0(0 оценок)
Ответ:
suchilinaelya
11.12.2022 08:14

//PascalABC.Net 3.1 сборка 1200

var

   number: integer;

   sum, sum_all, k: integer;

begin

   repeat

       write('Элемент последовательности => ');

       readln(number);

       

       if (number mod 10 = 2 ) and (number mod 4 = 0) then sum := sum + number;

       if (number <= 100) then k := k + 1;

       sum_all := sum_all + number;

   until number = 0;

   

   writeln('Сумма всех чисел, которые кратны 4 и заканчиваются на цифру 2 = ', sum);

   writeln('Сумма всех = ', sum_all);

   writeln('Кол-во чисел, которые не больше 100 = ', k);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота