Var
x,i:integer;
f:boolean;
begin
f:=true;
for i:=1 to 3 do
  begin
  write('Введите N',i,': ');
  readln(x);
  if x>=5 then f:=false;
  end;
if f then writeln('Все товары хорошие') else writeln('Есть плохие товары')
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Вводятся целые тор числа по одному, до тех пор пока не будет введен 0. Посчитать количество четных чисел. Язык Паскаль. Использ

18лиза01 [4]

Var
i, n, k: integer;

begin
n := 1; k := 0;
while n <> 0 do
begin
    Write('Введите целое число, 0 - отказ от ввода: ');
    Readln(n);
    if (n <> 0) and (n mod 2 = 0) then k := k + 1
end;
Writeln('Введено четных чисел- ', k)
end.

Введите целое число, 0 - отказ от ввода: 34
Введите целое число, 0 - отказ от ввода: 137
Введите целое число, 0 - отказ от ввода: 72
Введите целое число, 0 - отказ от ввода: 9243
Введите целое число, 0 - отказ от ввода: 0
Введено четных чисел- 2

0 0

3 года назад

Массив b [ 1..9 ] задан с помощью датчика случайных чисел. Найти произведение и кол- во отрицательных элементов.

bhgerdd [50]

Язык C:
m=0; //кол-во отриц. элементов
proizv=1; //произвед отриц элементов
for(i=0; i<9; i++)
{
if (b[i]<0)
{ m++;
proizv=proizv*b[i];
}
}

0 0

4 года назад