Program zadacha;
var a,x:integer;
begin
read(x);
a:=4*4*x;
write(a);
end.
Кодировка ASCII - семибитная,
КОИ-8 - восьмибитная,
Windows-1251- восьмибитная
Значит эти варианты отпадают.
Остается Unicod, правда здесь надо сделать примечание:
Для тех входных данных, которые указаны в условии задачи кодировка UTF-16
Ответ: Unicode
Сохранить как............
После do точку с запятой ставить не надо
uses crt;
var
i, j: integer;
begin
randomize;
for i := 1 to 20 do
begin
writeln(i);
textcolor(green);
for j := 1 to 20 do
write(random(50000));
textcolor(yellow);
for j := 1 to 20 do
write(random(50000));
textcolor(red);
for j := 1 to 20 do
write(random(50000));
end;
end.
Ответ:
А где сочинение? Прикрепи