Составить программу в PASCAL?

Segunov 28 мая 2020 г., 18:45:13

Var x, sum : integer ;

begin

sum : = 1 ;

writeln('Введите последовтельность чисел.

', #10, '0 - остановить программу, получить результат.

') ;

repeat

readln(x) ;

if(x mod 3 = 0) and (x < ; > ; 0) then sum : = sum * x ;

until(x = 0) ;

writeln('Произведение числе кратных 3 : ', sum) ;

end.

Sotnikov03 6 дек. 2020 г., 14:17:19 | 10 - 11 классы

Составить программу которая запрашивает последовательно 10 целых чисел, и вычисляет их произведение?

Составить программу которая запрашивает последовательно 10 целых чисел, и вычисляет их произведение.

Elyagolowina 3 окт. 2020 г., 02:38:18 | 5 - 9 классы

Составить программу вычисления произведения маленького и наибольшего элементов заданной последовательности чисел?

Составить программу вычисления произведения маленького и наибольшего элементов заданной последовательности чисел.

Xaqi01 13 дек. 2020 г., 13:06:57 | 5 - 9 классы

Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных 7 и оканчивающихся на 0?

Напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных 7 и оканчивающихся на 0.

Программа получает на вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000.

Введенные числа не превышают 30000.

Программа должна вывести одно число : сумму всех чисел, кратных 7 и оканчивающихся на 0.

Программу надо написать в Pascal.

Varvaravolegova 20 мар. 2020 г., 11:10:06 | 10 - 11 классы

Pascal ABCВычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3 ; подсчитать количество чисел, не принадлежащих промежутку [А, В)?

Pascal ABC

Вычислить сумму квадратов отрицательных чисел, стоящих на местах, кратных 3 ; подсчитать количество чисел, не принадлежащих промежутку [А, В).

01алим 13 нояб. 2020 г., 16:18:54 | 10 - 11 классы

Составить программу вычисления суммы и произведения натуральных чисел кратных 9 Очень надо?

Составить программу вычисления суммы и произведения натуральных чисел кратных 9 Очень надо!

111222эждл 28 дек. 2020 г., 17:00:02 | 5 - 9 классы

Дан ряд чисел от 11 до 200?

Дан ряд чисел от 11 до 200.

Найти произведение чисел , кратных 7, из этого ряда (через pascal).

Sivkovaelizave 31 дек. 2020 г., 12:15:41 | 5 - 9 классы

Задача в Pascal abc?

Задача в Pascal abc.

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

Миха7979 3 июн. 2020 г., 18:28:25 | 5 - 9 классы

Напишите программу пожалуйста В последовательности натуральных чисел определить сумму чисел кратных 5?

Напишите программу пожалуйста В последовательности натуральных чисел определить сумму чисел кратных 5.

0969490516 16 мар. 2020 г., 06:52:48 | 1 - 4 классы

Дана последовательность натуральных чисел, окончанием последовательности число 0?

Дана последовательность натуральных чисел, окончанием последовательности число 0.

Составить программу , котрая вычисляет сумму и среднее арифмитическое чисел кратных 3.

ЮлькаМрр 14 окт. 2020 г., 22:48:25 | 5 - 9 классы

Pascal, цикл для, составить программу?

Pascal, цикл для, составить программу.

4)Ввести 12 чисел.

Определить сколько чисел кратно 5.