var
n,i,j,max,k: Integer;
lname, name: array [1..100000] of String;
y,g,a:array [1..100000] of longint;
begin
Read(n);
for i:=1 to n do
begin
read(lname[i]);
read (name[i]);
read(y[i],g[i]);
if (max<g[i]) or (i=1) then
max:=g[i];
end;
for i:=1 to n do
if g[i]=max then
begin
writeln(lname[i], ' ', name[i]);
j:=j+1;
a[j]:=i;
end;
for i:=1 to j do
write(g[a[i]], ' ');
end.
Значёк это файл с расширением ico. Его можно использовать как иконку для приложение, ярлыка , как иконку любого типа файлов в windows. Ярлык это файл с определенным расширением lnk. Предполагается что при открытие ярлыка произойдет открытие файла на который ссылается ярлык.
Ответ:
7. ftp://txt.info/hello.txt
8. 140
Объяснение:
8. x - лягушка
100 + x - 60 = 180
царевна + лягушка - царевна & лягушка = царевна | лягушка
x = 180 - 100 + 60
x = 140
Var x,y,r:real;
begin
write ('Введите 2 числа х и у '); Readln(x,y);
r:=x*x+y*y/abs(x*y)+5;
writeln( 'Значение выражения = ' , r);
end.
Генерирую массив потом вывожу в столбики,n-константа которую ты выбираешь внезависимости от размера желаемого массива
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
const n=7;
var a:array [0..n] of integer;
i:integer;
begin
randomize;
for i:=0 to n do
a[i]:=Random(100);
Writeln('X F(X)');
for i:=0 to n do
begin
if i mod 2 <> 0 then Continue;
write(a[i],' ',a[i+1]);
Writeln;
end;
readln;
end.