<span>в адресе не будет изменяться только номер строки.</span>
program qq;
uses crt;
var a,x,b:real;
begin
crlscr;
writeln('введите а и b ');
readn(a,b);
if a=0 then
if b=0 then writeln('x любое число')
else writeln('решений нет ')
else begin
x:=(-b/a);
writeln (x);
end;
readln
end.
сорри за то что все в куче
N=4 цвета, значит глубина цвета:
i= ㏒₂N=㏒₂4=2
количество пикселей k= 60*40= 2400
Объем изображения: I=k*i= 2400*2=4800 бит = 600 байт
Ответ:
это рамка у меня получилось
Объяснение
procedure Stars(str: integer);
var
i:integer;
begin
for i:=1 to str do
write('*');
end;