Найти произведение чисел введеных с клавиатуры, пока не будет введен 0

287

410

Посмотреть ответы 2

Ответы на вопрос:

Sevinch123

Информатика

4,5(35 оценок)

Var a,b: integer; begin; b: =1; a: =1; while a< > 0 do begin; readln(a); if a=0 then break; b: =b*a; end; writeln(b); end.

lera1060

Информатика

4,4(67 оценок)

Program chkr5; const n=10; var a: array [1..n] of integer; chkr,i: integer; flag: boolean; //создаем массив из 10 (n) элементов begin randomize; flag: =false; //присваиваем переменной flag отрицательное значение, эта переменная потом нам проверить есть ли в массиве числа кратные 5 for i: =1 to n do begin a[i]: =random (21)-10; write (a[i], ' '); //заполняем массив числами на диапозоне [-10; 10] и выводим его if a[i] mod 5=0 then begin chkr: =chkr+1; flag: =true; end; //каждый раз проверяем: если элемент при делении на 5 дает в остатке 0, тогда в переменную записываем плюс единичку (к переменной +1) end; writeln; if flag=true then write ('чисел, кратных 5: ', chkr) else write ('чисел, кратных 5 нет'); //выводим результат, если цикл if выполнялся хоть раз (было хоть одно число, кратное 5), иначе говорим, что таких чисел нет end.