Помогите продавцу положить товар на полки. Выполни алгоритм для каждого объекта

Знания

Информатика

1 ответ:

пузан [1]4 года назад

0 0

Из тележки товар с ценником 50 попадет на верхнюю полку, остальные на нижнюю т. к. условие 200＞цены товара подходит только для ценника 50.

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

С клавиатуры вводится 10 целых чисел, найти наибольшее из чисел оканчивающихся на 7

ИванРябов

Var
   A,i,Max:integer;
Begin
Max:=0;
For i:= 1 to 10 do
    Begin
    Read(a);
    if (Abs(A) mod 10 = 7)and(A>Max) then Max:=A;
    End;
WriteLn('Max = ',Max);
End.

0 0

3 года назад

помогите люди)). Дана квадратная целочисленная матрица размера 4х4. Заменить нулями элементы матрицы, лежащие на главной диагона

Lerik-Valerik

Const
n = 4;

var
a: array[1..n, 1..n] of integer;
i, j: integer;

begin
for i := 1 to n * n do
    a[i mod n + 1, (i-1) div n + 1] := random(10);

for i := 1 to n do
begin
    writeln();
    for j := 1 to n do
    begin
      if i = j then a[i, j] := 0;
      write(a[i, j]:3);
    end;
end;
end.

0 0

3 года назад

Составить программу вычисления значения выражения y=1+1/2+1/3+... +1/20. {В данном случае целесообразно организовать цикл с пара

Татьяна Кочеткова

Program n1;
const n=20;
var y: real;
n: integer;
begin
y:=0;
for i:=1 to n do y:=y+1/n;
writeln(y);
end.

0 0

4 года назад

Как найти кол-во пикселов в строке изображения если длина строки равна 29 см а разрешение экрана 72 dpi

yarvic

72•29ч тс стст состоят тстаооа

0 0

4 года назад

Сколько есть натуральных чисел от 1 до 105, для которых верно утверждение: (Последняя цифра числа четна И число кратно 3) ИЛИ (Ч

Горошникова Лизавета [59]

Program ryazantsev;
var i,k:integer;
begin
k:=0;
for i:=1 to 105 do if (((i mod 10) mod 2 = 0) and (i mod 3 = 0)) or (i<10) then k:=k+1;
writeln(k)
end.

Таких чисел 25, запустите программу и убедитесь сами.

0 0

4 года назад