Садовник собрал со своего сада n (23856) кг урожая. Исходя из полученных данных, напишите программы для следующих заданий:Садовник собрал со своего сада n (23856) кг урожая. Исходя из полученных

данных, напишите программы для следующих заданий:

1) Выразите урожай садовода в тоннах, центнерах и килограммах;

2) Если в каждый ящик помещается по 25 кг винограда, сколько потребуется

ящиков?​ быстрее

#3

1 поколение - Ламповые машины.

2 поколение - Полупроводниковые машины на транзисторах

3 поколение - Миникомпьютеры на интегральных системах

4 поколение - Вычислительные системы на большой интегральной системе.

(дополнительно 5 поколение - Искусственный Интеллект)

#4

4. Одним из первых устройств, облегчающих вычисления, можно считать абак. Следующим этапом люди изобрели аналоговый компьютер. А впоследствии и до сих пор мы пользуемся цифровым компьютером.    

#5

Робот является одним из признаков развития вычислительной техники пятого поколения, потому что в основе его лежит искусственный интеллект.

// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger('Вводите числа:',ReadInteger('N='))
      .Where(x->Abs(x).Between(10,99)).Count)
end.

Пример
N= 5
Вводите числа: 23 -4 100 -42 16
3

begin
  var k:=ReadInteger('K=');
  Writeln(ReadSeqInteger('Вводите трехзначные числа:',ReadInteger('N='))
      .Where(m->Abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).Count)
end.

Пример
K= 8
N= 10
Вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473
2