1000=(83*12)+4;
Т.е. Пройдет 83 года и 4 месяца--- будет 15 марта.
//Pascal ABC.NET v3.1 сборка 1172
Var
i:integer;
begin
for i:=1 to 9 do
writeln(i,'*5=',i*5);
end.
//Вроде бы знакомый аватар...
//Соглашусь с предыдущим оратором, решается в 3 строки без циклов
//Pascal ABC.NET v3.0 сборка 1111
Const
n=10;
var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 10 do
begin;
ar[i]:=random(50,100);
sum+=ar[i];
write(ar[i]:4);
end;
writeln;
write('Sum=',sum);
end.
const
n = 3;
var
a: Array[1..n, 1..n] of Integer;
j, i, s: integer;
begin
Randomize;
Writeln('Случайная матрица:');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(51) - 25;
Write(a[i, j]:5);
end;
Writeln
end;
for i := 1 to n do
begin
j := n + 1 - i;
s := s + a[i, j];
end;
Writeln('Сумма элементов побочной диагонали: ', s);
Readln
end.
Абвгдеёжзийклмнопрстуфхцчшщъыьэюя
1 шаг - 2010141622611
2 шаг - 1162261410102
3 шаг - йефемииб
Чаще всего встречаются буквы "е" и "и"
Номер буквы "е" - 6