Program table;
var
f, i: integer;
k: real;
begin
for i := 1 to 20 do
writeln(i, ' (фунт) = ', (i * 0.4):1:3, ' (кг)');
end.
Eyedropper с английского - пипетка. Пипетка выполняет роль определения цвета на пикселе, который вы указали курсором. Затем он может использоваться для рисования/заливки цветом, которым Вы выбрали. Единственное, что подходит под это - f.
)напиши куда слово встовлять(вначало, вконец, посередине...);
<span>program z2; </span>
<span>var s,s1:string; </span>
<span>a:integer; </span>
<span>begin </span>
<span>write('Введите слово: ');read(s1); </span>
<span>write('Введите строку: ');read(s); </span>
<span>s:=s+' '; </span>
<span>a:=length(s); </span>
<span>writeln(a); </span>
<span>insert(s1,s,a+1); </span>
<span>writeln('Преобразованная строка: ',s); </span>
<span>end. </span>
<span>2) </span>
<span>program z1; </span>
<span>var s:string; </span>
<span>i,kol:integer; </span>
<span>begin </span>
<span>writeln('Введите строку'); </span>
<span>read(s); </span>
<span>kol:=0; </span>
<span>for i:=1 to length(s) do </span>
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol);
writeln(Kol);
end.
Const n=5; // обязательно должно быть нечетным
var
i,j,max,x,k:integer;
a:array[1..n,1..n]of integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do
begin
if a[i,i]>max then max:=a[i,i];
if a[i,n+1-i]>max then max:=a[i,n+1-i];
end;
k:=n div 2+1;
x:=a[k,k];
for i:=1 to n do
begin
if a[i,i]=max
then a[i,i]:=x;
if a[n+1-i,i]=max then a[n+1-i,i]:=x;
end;
a[k,k]:=max;
writeln('Измененный массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln
end
end.