//1
var i: byte;
begin
for i := 2 to 20 do
writeln('Цена за ',i,' = ', 20.4 * i);
end.
//2
var i: byte;
Price, TotalPrice: real;
begin
Price := 20.4;
for i := 2 to 20 do
begin
TotalPrice := Price * i;
writeln('Цена за ',i,'шт. = ', TotalPrice);
end;
end.
Расширение первого файла третьей буквой может иметь только символ С, а во втором случае абсолютно любой и необязательно один. Поэтому нельзя сказать, что приведенные записи одинаковые и найдут одинаковые файлы
счётчик цикла должен быть целым, т. е. integer!!
На один пиксель - log2 16777216 = 24 bit а это равно 3 байта. Дальше : 1024*768 = 786432 пиксель; 786432 * 3 = 2359296 байт, а это равно 2,25 Мбайт.
<span>X -переменная с реальным типом.А у тебя она integer.
</span>