2. Программа берілген: {
Сұраққа жауап беріңдер, тапсырманы
int i;
орындаңдар:
for (i=5; i<=34; 1. Программа кодында не орындалады?
i++)
2. Нәтижесінде экранға не шығады?
cout << "і";
3. Whіlе цикл операторын пайдаланып
return 0;
жазыңдар.
}
4. do
while циклін пайдаланып
жазыңдар.​

Год создания первого компьютера - 1938 год, машина Z1, инженер Конрад Цузе. Первым функционирующим программируемым компьютером принято считать Z3(1941 год) этого же инженера.

Год создания первого отечественного компьютера- 1951 год, МЭСМ, разработана группой Лебедева в Киеве.

Год открытия радиосвязи- 1995 год, изобретатель А. С. Попов

Год первого полета человека в космос- 1961 год, Ю. Гагарин

Год принятия христианства на Руси- 988 год.

Год первого упоминания в летописи о Москве- 1147 год, летопись "Москва"

Год начала великой отечественной войны- 1941 год, 

Год запуска первого искусственного спутника земли- 1957 год,  «Спутник-1», СССР

Год открытия Колумбом Америки- 1492 год.

var
j, k, l, m : Word;
A : array [0..27] of Integer; {27 потому что максимальная сумма трех цифр 27, т.е. 9+9+9}
begin
ClrScr;
Writeln ('счастливый билет');
for j:=1 to 27 do A[j]:=0;
for j:=0 to 9 do
for k:=0 to 9 do
for l:=0 to 9 do
A[j+k+l] := A[j+k+l] + 1;

m := 0;
for j:=0 to 27 do
m := m + A[j]*A[j];

WriteLn(m);

ReadLn; {это чтобы увидеть результат}
end.

А если требуется все-таки "лобовое", то можно так

m := 0;
for k:=0 to 999999 do begin
Str(k, SS);
SS := Copy('000000', 1, 6 - Length(SS)) + SS; {дополняем слева нулями при необходимости}
if (Ord(SS[1])-48+Ord(SS[2])-48+Ord(SS[3])-48) = (Ord(SS[4])-48+Ord(SS[5])-48+Ord(SS[6])-48) then
Inc(m);
end;

Остальное сами.