Напишите для паскаля,пожалуйста.
5-9 класс
|
С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.
(Мы прошли только до цикла с постусловием)
Program chik;
var k,i,s,a:integer;
begin
s:=1;k:=0;
for i:=1 to 17 do
begin
read(a);
if (a mod 17<>0)then begin
k:=1;
s:=s*i;
end;
end;
if k=1 then write(s)else write(0);
end.
вроде так
var
p, i, t : integer;
begin
p := 1;
i := 1;
repeat
read (t);
if t mod 17 <> 0 then p := p * t;
i := i + 1;
until i > 17;
write (p);
end.
Другие вопросы из категории
1. АТОАРСРВЯ
2. ПРАЕТРМА
3. ЕТРАВКОНЯ
4. РКАЬАФАТЛНЯ
Найдите зашифрованные в сканворде понятия информатики
Читайте также
С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.
Напишите в Паскале пожалуйста
типа. Ввод организуйе без использования цикла 2) разработайте алгоритм для ввода в память ЭВМ одномерного массива С состоященр из 7 элементов целого тип. Ввод организуйе с исползованием цикла "ДЛЯ". 3) разработайте алгоритм для ввода в память ЭВМ одномерного массива Д состоящего из 10 элементов целого типа. Каждый элемнт вычислите по формуле: значение элемента равно квадрату его индекса
Имеются два числа:
а) вычислите сумму и разность этих чисел, используя два оператора readln.
б) перепишите программу так, чтобы использовался один оператор readln.
в) добавьте комментарии к программе.