var
A: array [1..9, 1..9] of Integer;
i, j: Integer;
begin
WriteLn ('Массив:');
for i := 1 to 9 do begin
for j := 1 to 9 do begin
if Abs (i - 5) + Abs (j - 5) <= 3 then
A [i, j] := 1
else
A [i, j] := 0;
end;
end;
for i := 1 to 9 do begin
for j := 1 to 9 do begin
Write (A [i, j], ' ');
end;
WriteLn;
end;
end.
Почитай системные требования приложения, уверен что там не больше 1 гигабайта оперативы
Ответ Б, так как информация это принцип передачи данных а не азбука морзе
Нпзвание города;Соки,уха,туча,баки. Название реки:Упал,оса,каша,волна. Новое Слово:Марка,корж,булка,лапка,зубы,песок,галка,клин,
Сергей-Ка
1)Соки-Сочи
уха-уфа
туча-тула
баки-баку
2)урал, ока, волга,
маска,корт, будка, ласка, дубы, гайка, клён, доска, цвет,колено.
Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a);
writeln('Сколько вы хотите купить ткани?(в метрах квадратных)');
readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.
<span>В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.
</span>