Program If4; Var
A,B,C,k: Integer;
Begin
k:=0;
WriteLn ('Bвeдите числа A, B и C: ');
ReadLn(А, В,С) ;
If A>0 Then
k: =k + 1:
IF B >0 Then
к: =k + 1;
If C> 0 Then
к: =k + 1;
WriteLn ('Количество положительных чисел в исходном наборе: ',k);
Еnd.​
Перевести на С#

//Pascal ABC.NET 3.1 сборка 1219

Var
 k,n,max:integer;

 procedure hase(var k,n,max:integer); //сама последовательность
 begin
  if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность
  writeln(n); //вывод нового члена последовательности
  inc(k); //увеличение значения счётчика шагов
  if max<n then max:=n; //поиск вершины
 end;

  procedure start(var k,n,max:integer); //название процедуры намекает
 begin
  readln(n);
  k:=0;
  writeln('Seq:');
  max:=integer.MinValue;
  while n<>1 do
  hase(k,n,max);
  writeln('Шаги:',k);
  writeln('Вершина:',max);
 end;
 begin
 start(k,n,max);
end.
Пример ввода:
6
Пример вывода:
Seq:
3
10
5
16
8
4
2
1
Шаги:8
Вершина:16

Таблица умножения в Excel двумя
Создать таблицу умножения чисел от 1 до 9 (9 строк, 9 столбцов). В ячейке, соответствующей произведению 1*1, должна быть записана формула, которая затем должна быть скопирована во все остальные 80 ячеек. Решение в двух вариантах:

1)с использованием смешанных ссылок;

2)с использованием формулы массивов.

Метод 1. С использованием смешанных ссылок.

Составим таблицу. Введем по столбцам цифры от 1 до 9 и по строкам.
В ячейку В2 введем формулу: =$A2*Bкопируем эту ячейку во все остальные ячейки диапазона В2:J10. Получим таблицу умножения:
таблица умножения в EXCEL с смешанных ссылок

Метод 2. С использованием формулы массивов.

В ячейки В2:J2 введем цифры от1 до 9 и в ячейки А14:А22.
Выделим ячейки В14:J22 и введем формулу =B13:J13*A14:A22. Нажмем Ctrl+shift+Enter, чтобы формула вставилась как формула массива. Получим:

таблица умножения в EXCEL с формул массива