Если программу отправляете в систему проверки,то уберите помеченную строку
Var
s,a:real;
begin
write('введите сумму ');
readln(a);
s:=a*18/100;
writeln('сумма процентов ', s);
end.
Var a:array[1..100,1..100] of integer;
m,n,i,j:integer;
begin
read(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=j*5;
for i:=1 to m do begin writeln;
for j:=1 to n do
write(a[i,j]:4);
end;
<span>end.
Как то так.</span>
9 декабря 1968 года компьютерная мышь была представлена на показе интерактивных устройств в Калифорнии. Патент на этот гаджет получил Дуглас Энгельбарт в 1970 году.
Первым компьютером, в набор которого включалась мышь, был миникомпьютер Xerox 8010 Star Information System, представленный в 1981 году. Мышь фирмы Xerox имела три кнопки и стоила 400 долларов США, что соответствует почти 1000 долларов в ценах 2012 года с учётом инфляции. В 1983 году фирма Apple выпустила свою собственную однокнопочную мышь для компьютера Lisa, стоимость которой удалось уменьшить до $25. Широкую известность мышь приобрела благодаря использованию в компьютерах Apple Macintosh и позднее в ОС Windows для IBM PC совместимых компьютеров. В СССР выпускалась компьютерная мышь, называвшаяся "Манипулятор "Колобок" с тяжёлым металлическим, не покрывавшимся тогда резиной, шаром.