Давайте воспользуемся знаниями о таблицах данных для хранения ваших персональных данных. Это будут за все домашние задания за третий модуль.

Заполните списки urok1, urok2, urok3 и urok4 вашими за домашние задания. Если дз не было или вы его не выполнили, то вместо напишите слово “нет”.

После этого составьте таблицу данных, каждая строка таблицы - за определенный урок.

нужна таблица и обьясните

правильно треугольник)

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.

program sir; var y,x,h: real; beginx: =280; h: =0.1; while h< =1 do  begin  y: =x*h;   writeln('цена за ',h*1000,' грамм ',y,' руб');   h: =h+0.1  end; end.

исполняемые файлы:

test.exe = 459 кб

photo.exe = 117 кб

letter.com - 198 кб

графические файлы:

nature.jpg = 314 кб

program.bmp = 361 кб

текст. документы:

comp.doc = 238 кб

получается порядок:

test.exe 

program.bmp

nature.jpg

comp.doc

letter.com

photo.exe