вычислить произведение положительных и отрицательных чисел,в интервале от -7 до 7
10-11 класс
|
на Pascal ABC
Program задание;
var i:integer;
p:integer;
begin
p:=1;
For i:= -7 to 7 do
if i<>0 then p*=i;
Writeln('Ответ: ',p);
end.
Program p7;
var i:integer;
p:integer;
begin
p:=1;
For i:= -7 to 7 do
if i<>0 then p*=i;
Writeln('Ответ: ',p);
end.
Другие вопросы из категории
Читайте также
2) Задано целое положительное число А и В. Найти квадратные корни целых чисел в интервале от А до В. Замечание: A<B
30 элементов. Заполнить с помощью случайных чисел, вычислить сумму отрицательных чисел и количество положительных чисел. Заранее спасибо!
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
количество четных и количество нечетных чисел в диапазоне от Х до У.
Составить программу на Паскале. Ввести 10 целых случайных чисел (в интервале от -10 до 10). Вывести исходный массив. Найти и вывести: 1) минимальный элемент и его индекс; 2) сумму всех элементов массива; 3) количество отрицательных элементов. К каждому элементу массива прибавить 1, вывести получившийся массив. Подсказка: 1)random(10)-10 2) положительные: >0 неположительные: <=0 отрицательные: <0 неотрицательные:>=0