Определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3, 5, 7(в паскале авс) РЕБЯЯЯЯТ ОЧЕНЬ НАДО?

AleksaSS2 28 нояб. 2020 г., 08:17:47

Program del ;

uses crt ;

var chisla : array[1.

15] of integer ; n, i, k : integer ;

begin

clrscr ;

write ('Введите кол - во чисел : ') ;

readln (n) ; for i : = 1 to n do begin write ('Введите 'i' - тое число : ') ; readln (chisla[i]) ; end ; for i : = 1 to n do if ((chisla[i] mod 3 = 0) and (chisla[i] mod 5 = 0) and (chisla[i] mod 7 = 0)) then k : = k + 1 ; write ('На 3, 5 и 7 одновременно делятся ', k, ' чисел.

') ; readln ;

end.

У меня щас компилятора нету, так что не проверял.

Если есть ошибки, или вопросы - стучись в личку.

Pigalevacat 11 февр. 2020 г., 21:12:00 | 5 - 9 классы

Массив из 40 случайных чисел, каждое из которых находится в диапазоне от - 30 до 30 :А) выведите на экран количество и индексы отрицательных элементов массива?

Массив из 40 случайных чисел, каждое из которых находится в диапазоне от - 30 до 30 :

А) выведите на экран количество и индексы отрицательных элементов массива.

Б) выведите на экран количество, индексы и значения элементов массива, кратных шести.

Дополнительно :

Выведите на экран максимальный элемент массива и его индекс.

Выведите на экран количество элементов массива, равных 7.

SuSanNa268 22 дек. 2020 г., 18:10:12 | 5 - 9 классы

Помогите с паскалем?

Помогите с паскалем.

С клавиатуры вводятся 5 натуральных чисел.

Определить, есть ли среди них числа, которые нацело делятся на 5 (вывести их на экран).

Alina123456789100 30 сент. 2020 г., 10:58:00 | 10 - 11 классы

Дана строка?

Дана строка.

Если количество символов в ней нечетно , то выведите на экран средний символ строки.

Задача Паскаль.

Styulia26 12 мар. 2020 г., 08:19:16 | 5 - 9 классы

Паскаль?

Паскаль.

Помогите найти ошибку и исправить.

Задача такая : , , Найдите и выведите на экран все трехзначные числа, которые делятся без остатка на 11 и имеют в своей записи хотя бы одну цифру 3.

, , в паскале.

PandemaM 22 июн. 2020 г., 06:06:07 | 5 - 9 классы

Определите и выведите на экран количество чисел в промежутке от 100 до 1000 делящихся без остатка одновременно на 5 и 21 Заранее спасибо?

Определите и выведите на экран количество чисел в промежутке от 100 до 1000 делящихся без остатка одновременно на 5 и 21 Заранее спасибо.

Finogeev 2 июл. 2020 г., 08:38:17 | 5 - 9 классы

Дано сначала число n, а затем n натуральных чисел, не превосходящих 100?

Дано сначала число n, а затем n натуральных чисел, не превосходящих 100.

Выведите на экран в порядке возрастания только те из них, которые встречаются в данной последовательности ровно один раз.

На паскале АВС с использованием массива.

Darkandveta 26 июл. 2020 г., 18:13:57 | 10 - 11 классы

Программа моделирует при помощи датчика случайных чисел бросание двух игральных костей до выпадения двух 6?

Программа моделирует при помощи датчика случайных чисел бросание двух игральных костей до выпадения двух 6.

Выведите на экран число бросаний.

АВС паскаль.

Ponamarevat1 6 сент. 2020 г., 10:47:57 | 5 - 9 классы

Вводятся два числа А и В (В> ; А)?

Вводятся два числа А и В (В> ; А).

Вывести на экран числа, которые делятся на 3, но не делятся на 5 и их количество.

(Паскаль).

Тамазик 29 янв. 2020 г., 15:39:08 | 10 - 11 классы

Определить количество трехзначных чисел , кратных 3?

Определить количество трехзначных чисел , кратных 3.

(ПАСКАЛЬ).

Sofierm 3 дек. 2020 г., 12:59:33 | 5 - 9 классы

Паскаль?

Паскаль.

Даны 10 двухзначных чисел.

Выведите сумму тех, которые не делятся на 3.