Uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 7 do
begin
gotoXY(1,i);
write('*');
gotoXY(7,i);
write('*');
end;
for i:=1 to 5 do
begin
gotoXY(1+i,7-i);
write('*');
end;
readln;
end.
Последним он собрал 10-ое яблоко :-D
Первый видео диск был представлен публике в 1972 году.
B:=3 //374/100 Целых 3 раза
a:=7 //(374+3)/10 Остаток7
a:=21 //7*3=21
Ввывод:21