Помогите составить программу в турбо паскале, заранее спасибо

Question

Напечатать числа в виде следующей таблицы: 
1.41 42 … 50 
51 52 … 60 
… … … … 
71 72 … 80 
 
2.5 5 5 5 5 
6 6 6 6 
7 7 7 
8 8 
9 
 
1.20 2 2 2 2 
 1 2 3 4 
19 2 2 2 
 1 2 3 
18 1 2 
1 2 
17 1 
1 
 
2.Напечатать полную таблицу умножения в виде 
1*1=1 2*1=2 … 9*1=9 
1*2=2 2*2=4 … 9*2=18 
… … … … 
1*9=9 2*9=18… 9*9=81 
 
3.Оценки каждого из 18 учеников по трем предметам представлены в виде таблицы 
УченикПредмет 
123 
1 
2 
… 
18 
 Организовать ввод информации по этой таблице и определить: 
•Общее количество пятерок в таблице 
•Количество троек у каждого ученика 
•Количество двоек по каждому предмету

Денис · Accepted Answer

1) 
 
for i := 4 to 7 do 
 begin 
 for j := 1 to 10 do 
 write(i*10 + j, #32); 
 writeln; 
 end; 
 
2) 
 
for i := 5 to 9 do 
 begin 
 for j := i to 9 do Write(i, #32); 
 writeln; 
 end; 
 
3) Проще всего так: 
 
writeln('20 2 2 2 2'#13#10'1 2 3 4'#13#10'19 2 2 2'#13#10'1 2 3'#13#10'18 1 2'#13#10'1 2'#13#10'17 1'#13#10'1'); 
 
4) 
 
for i := 1 to 9 do 
 begin 
 for j := 1 to 9 do Write(i, 'x', j, '=', i*j, #32#32); 
 WriteLn; 
 end;

Мария · Answer

помочь? или сделать твою работу за тебя?