1)с A1 по J1 вводим сколько помидоров собрал каждый .
2)в K1 пишем дневную норму.
3)в L1 пишем стоимость 1кг помидоров .
4)с A2 по J2 вводим следующую формулу:
=ЕСЛИ(A1<=K1;A1*L1;K1*L1+2*(A1-K1)*L1) - это пример для ячейки A2. Для следущих (B2-J2) просто в формуле заменяете A на букву соответствующего столбца (B-J).
Var
i,k,m:integer;
n:longint;
begin
Write('Введите количество чисел: '); Read(k);
m:=0;
Writeln('Вводите числа');
for i:=1 to k do
begin
Read(n);
if n mod 6 = 0 then inc(m)
end;
Writeln('Количество чисел, кратных 6, равно ',m)
end
<em><u>Тестовое решение:</u></em>
Введите количество чисел: 4
Вводите числа
3 18 26 24
Количество чисел, кратных 6, равно 2
110 011 в 2 = 63 в 8, 51 в 10 , 33 в 16
412 в 8 = 100001010 в 2 , 266 в 10, 10A в 16
914 в 10, 11100100102 в 2, 1622 в 8, 0392 в 16
E3 в 15, 11100011 , 227 в 10 в , 343 в 8
32 * 15 = 480 Бит было передано за 15 сек
480 : 48 =10 страниц