Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Процедура: из предложения вычеркнуть слова, встречающиеся больше одного раза https://www.cyberforum.ru/ pascalabc/ thread1431617.html написать программу "из предложения вычеркнуть слова, встречающиеся больше одного раза"	Процедура, выводящая на экран все делители переданного ей числа Pascal ABC Напишите процедуру, которая выводит на экран все делители переданного ей числа (в одну строчку)
Pascal ABC Нахождение максимального элемента в строке оформить в виде процедуры Дана матрица А(nxn). Написать программу нахождения минимального элемента из (max1, ...,maxn), где maxi - максимальный в i - той строке. Нахождение максимального элемента в строке оформить в виде... https://www.cyberforum.ru/ pascalabc/ thread1431612.html	Pascal ABC Найти сумму 7 членов ряда https://www.cyberforum.ru/ pascalabc/ thread1431549.html Найти сумму 7 членов ряда, в котором
Pascal ABC В матрице найти столбцы, в которых произведение элементов меньше заданного числа "А" Здравствуйте! Помогите, пожалуйста, решить задачу: В матрице найти столбцы, в которых произведение элементов меньше заданного числа "А". Определить максимальный элемент в каждом из этих столбцов и...	Pascal ABC Подсчитать количество трехзначных чисел, произведение цифр которого не превосходит данного (цикл с параметром) https://www.cyberforum.ru/ pascalabc/ thread1431545.html Подсчитать количество трехзначных чисел, произведение цифр которого не превосходит данного К.
Pascal ABC Напечатать таблицу перевода количества информации в байтах (цикл с параметром) Дана программа, решающая указанную задачу и содержащая синтаксические и алгоритмические ошибки и/или пропуски. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Если есть пропуски,... https://www.cyberforum.ru/ pascalabc/ thread1431544.html	По введенному номеру N (1≤N≤4) и заданным числам X, Y вывести результат Pascal ABC Написать программу, которая по введенному номеру N (1≤N≤4) и заданным числам X, Y выводит: 1 - меньшее из чисел, 2 - большее из чисел, 3 - среднее арифметическое чисел, 4 - среднее геометрическое...
Pascal ABC По введенному баллу получить соответствующую характеристику ученика: отличник, хорошист, троечник, двоечник По введенному баллу получить соответствующую характеристику ученика: отличник, хорошист, троечник, двоечник. https://www.cyberforum.ru/ pascalabc/ thread1431518.html	Pascal ABC Удвоить произведение цифр заданного k-значного числа https://www.cyberforum.ru/ pascalabc/ thread1431517.html Дана программа, решающая некоторую задачу. В программе имеются синтаксические ошибки и пропуски. Необходимо исправить ошибки и заполнить пропуски. Предложить систему тестов для проверки...
Pascal ABC По решению сформулировать условие задачи Дано решение некоторой задачи. Выполнить следующее: 1) по решению сформулировать условие задачи; 2) предложить систему тестов для проверки работоспособности программы. var ch: char; begin ...	Pascal ABC Дана программа, содержащая синтаксические и алгоритмические ошибки, исправить их https://www.cyberforum.ru/ pascalabc/ thread1431511.html Дана программа, содержащая синтаксические и алгоритмические ошибки. Указать строки, содержащие эти ошибки и их содержание. Исправить их. Представить правильный вариант программы. Проводится тест...

ZX Spectrum-128

6804 / 4563 / 4817

Регистрация: 05.06.2014

Сообщений: 22,438

27.04.2015, 18:19

Найти количество и сумму тех членов данного массива, которые делятся на 5 и не делятся на 7 - Pascal ABC - Ответ 7538870

27.04.2015, 18:19. Показов 5467. Ответов 4

Метки (Все метки)

Сообщение было отмечено мансур как решение

Решение

Pascal

program rrr;
Uses
  crt;
Var
  k,i,s:integer;
Begin
  Clrscr;
  s:=0; k:=0;
  For i:=0 to 50 do
    if (i mod 5=0) and (i mod 7<>0) then
      Begin
        s:=s+i;
        k:=k+1;
        Write(i,' ');
      End;
  writeln;
  WriteLn('Sum: ',s);
  WriteLn('Quantity: ',k);
  ReadLn;
End.

Вернуться к обсуждению:
Найти количество и сумму тех членов данного массива, которые делятся на 5 и не делятся на 7 Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

27.04.2015, 18:19

Готовые ответы и решения:

Найти сумму тех чисел, которые делятся на 5 или на 7
Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.

Найти сумму всех двузначных чисел, которые делятся на 3 и не делятся на 4
Помогите решить 3 задачи на циклы на паскале, а то забыл их совсем 1 Найти 10 произвольных целых...

Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.
Надо срочно решить несколько задач, моя вечная благодарность решившему прилагается: 1)Составить...

Определить сумму и количество элементов массива, которые делятся на 7 и 3 одновременно
дан одномерный массив a(n) целых чисел определить сумму и кол-во элементов которые делятся на 7 и 3...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.04.2015, 18:19

Помогаю со студенческими работами здесь

Найти сумму элементов массива, которые делятся на 3
Найти сумму элементов массива, которые делятся на заданное число

Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка
массив целых чисел из 10 элементов заполнить случайным образом. Подсчитать количество и сумму...

Вложенные циклы. Найти количество и сумму членов данной последовательности, что делятся на заданное число.
Всем привет! Помогите пожалуйста решить задачу в Pascal: Дано натуральное число n и целые числа...

Из массива вывести те числа которые делятся на 2 и 3 и больше данного числа, узнать сумму этих чисел
народ будти добры помогите решить задачки! no 1! из халявных чисел массива вывести те числа...

Наверх