Составьте программу в паскале ,пожалуйста. Turbo Pascal(циклы паскаль оператор FOR) 1)подсчитать произведение первых семнадцати целых положительных
5-9 класс
|
чисел.
1)
var
mas:array[1..17] of integer;
a:real;
b:integer;
c:integer;
begin
a:=1;
for b:=1 to 17 do
write;
for c:=1 to 17 do
begin
mas[b]:=c;
a:=mas[b]*a;
end;
write (a);
end.
2)
var
i:integer;
begin
for i:=-17 to 3 do
if i mod 4 = 0 then
writeln (i);
end.
Другие вопросы из категории
ке емкостью 750 мбайт?
(не меньше 0). тема: Логические основы программирования
В чем состоит отличие микросхем флэш-памяти от микросхем оперативной памяти?
В чем состоит преимущество флэш-памяти перед магнитной и оптической долговременной памятью?
Какую последовательность кластеров занимает файл "файл 2" из приведенного примера на носителе информации?
Чем различаются таблицы размещения файлов FAT 12,FAT 16 и FAT 32?
Почему журналируемые файловые системы обеспечивают большую надежность хранения файлов?
Читайте также
Составить программу,которая выводит на экран сумму нечетных чисел от 1 до 30 в Pascal ABC.
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.
1. Составьте программу для определения большего из двух чисел х или у
2. Составьте программу для нахождения площади прямоугольника по заданным сторонам а и б
равносторонний,равнобедренный или какой либо другой.
Вот ещё одна
Составить программу:Даны а,b,c-целые числа.Если они большн 0-вычислите сумму их квадратов;а если хотя бы одно из них четно-вычислите их сумму и произведение.
Пожалуйста ребят.