С клавиатуры вводятся 17 чисел. Найти произведение
5-9 класс
|
положительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until
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 вставить в презентациюю?
ПОМОГИТЕ ПОЖАЛУЙСТАА)))
Читайте также
С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.
С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.
(Мы прошли только до цикла с постусловием)
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.