Склавиатуры вводится три строки вида фамилия пробел имя пробел рост.определить фамилию и имя самого высокого человека d pascal abc

Type  str = array [1..100] of char; var  maxs, tmps : str;   count, max, tmp, ctmp : integer; procedure reads (var s : str; var len, val : integer); var  b : boolean;     c : char;     i : integer; begin    i : = 0; b : = false;     repeat    read (c);     if not b or (c < > ' ') then    begin        if c = ' ' then b : = true;       inc (i);         s[i] : = c;       c : = '1';     end;     until b and (c = ' ');   len : = i;     readln (val); end; begin assign (input, 'input.txt'); reset (input);   reads (maxs, count, max);     while not eof do    begin      reads (tmps, ctmp, tmp);     if tmp > max then      begin        max : = tmp;   count : = ctmp;     maxs : = tmps;     end;   end;     for tmp : = 1 to count do write (maxs[tmp]); end.

PascalABC.NET

#1

function Y(x:integer) := 2*((x+2)**2)+5.5*(x+2) - 3;

begin

 var Xes := Range(3, 25);

 Xes.Tabulate(p -> Y(p)).Println;

end.

#2

const PASS = '123ab';

begin

 var rpass := Readstring('Pass: ');

 while rpass <> PASS do begin

   rpass := Readstring('Wrong pass. Try again: ');

 end;

 print('Correct password. Welcome');

end.

#3

begin

//Сначала читаем цифру, которую надо удалить, а уже потом число.

 var X := ReadChar();

 var number := ReadInteger().ToString.ToCharArray.ToList;

 while number.Contains(X) do number.Remove(X);

 number.JoinIntoString.Println;

end.

#4

begin

 var X := ReadInteger();

 Print((x div 100)+(x mod 100));

end.

Объяснение:

1.

program pifagor;

var

a,b:real;

begin

write('Введите катеты 》 ');

read(a,b);

write('Гипотенуза 》 ',sqrt(sqr(a)+sqr(b)));

end.

2.

program temp2;

var

a:integer;

begin

write('Введите число 》 ');

read(a);

write('Последняя цифра числа 》 ',a mod 10)

end.

3.

program pifagor;

var

a:integer;

begin

write('Введите трехзначное число 》 ');

read(a);

write('Сумма цифр числа = ',a div 100+a div 10 mod 10+a mod 10);

end.

4.

A=50

B=20

A=40-30=10

10<20

C=2×10=20

5.

program kratnost;

var

x:integer;

begin

write('Введите X 》 ');

read(x);

if(x mod 5=0)

then

write('X Делится на 5')

else

write('X Не делится на 5')

end.