1. Создать через оператор Dim 4 переменных: string, date, string, string. Например: Dim A as Double
2. Используя оператор For Next считать значения из ячеек через оператор Cells
3. И записать в строчку третью значение: А3, B3, C3, D3

в конце xix века герман холлерит в америке изобрел счетно-перфорационные машины. он основал фирму по производству этих машин, которая затем была преобразована в фирму ibm.

клинопись

var

a: integer;

begin

readln(n);

writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);

end.

var

a: integer;

begin

readln(n);

writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);

end.