Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 976 ответов!

С клавиатуры вводятся 17 чисел. Найти произведение

5-9 класс

положительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until

Ridlle 27 сент. 2014 г., 13:54:21 (9 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Svaringg
27 сент. 2014 г., 15:24:56 (9 лет назад)

CONST N = 17;
var
x,i,p:integer;

begin
p:=1;

repeat 
read(x);
if (x mod N <> 0) and (x > 0) then p:=p*x;
inc(i);

until i=N;

write(p);
end.

Ответить

Другие вопросы из категории

Напишите для паскаля,пожалуйста.

С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.

помогите пожалуйстаХома недавно вырыл себе новую нору и принялся ее благоустраивать и украшать. Так на одной из стен он решил расположить семейные

фотографии, но вот на какой именно стене пока не решил. Архив фотографий у Хомы очень большой и все фотографии разместить на стене не представляется возможным, но Хома все равно хочет разместить как можно больше фотографий.

Основная проблема в том, что фотографии есть размера 10х15 и 9 х 13. И нужно, чтобы были размещены фотографии обоих видов, при этом фотографии поворачивать нельзя. Помогите Хоме справиться с данной задачей. фотографий.

В ответ необходимо вывести 3 числа через пробел. Первое число – максимальное количество фотографий, которое можно размесить на стене размером 45х55 , второе число – максимальное количество фотографий на стене размером 90х171 и третье число – максимальное количество фотографий на стене размером 118х195. фотографий.

используя график, назовите самые дождливые дни

1) 10, 20, 22, 31
2) 8, 20, 27, 30
3) 10, 20, 27, 30
4) 10, 22, 27, 30

Как картинку из документа Microsoft Office Word 2007 сохранить в формате JPG?

Как диаграмму из Microsoft Office Word 2007 вставить в презентациюю?

ПОМОГИТЕ ПОЖАЛУЙСТАА)))

Читайте также

Напишите для паскаля,пожалуйста.

С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.

Напишите для паскаля,пожалуйста.

С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.
(Мы прошли только до цикла с постусловием)

1, С клавиатуры вводятся 10 натуральных чисел. Вычислить сумму четных элементов.

2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.



Вы находитесь на странице вопроса "С клавиатуры вводятся 17 чисел. Найти произведение", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.