2)запуск программы 4)закрытие программы paint 5) нажатие кнопки х для закрытия программы блокнот
Procedure SolveLinear;
var
k, x, b, y: real;
begin
write('k=');
readln(k);
write('x=');
readln(x);
write('b=');
readln(b);
y := k * x + b;
writeln('y=kx+b=', y);
end;
Растровая графика: объём занимаемой памяти-очень большой; форматы файлов- BMP, GIF, JPG, JPEG.
Векторная графика: объём занимаемой памяти-относительно небольшой; Форматы файлов- WMF, EPS.
Всё что нашёл, если ещё что найду то напишу.
const n=5;
var a:array [1..n] of integer;
i,s:integer;
begin
for i:= 1 to n do
begin
a[i]:=Random(5)+2;
write(a[i],' ');
end;
writeln;
for i:= 1 to n do if a[i]=3 then writeln (i,' элемент равен ',a[i]);
for i:= 1 to n do if a[i]>3 then writeln (i,' элемент больше 3 и равен ',a[i]);
for i:= 1 to n do if (a[i]>=3) and (a[i]<=5) then s:=s+a[i];
writeln ('Сумма чисел в массиве удовлетворяющих условию 3<=x<=5 равна ',s)
end.