В том что 100 - это тип данных integer (целое число), а
100.0 - это тип данных Real (дробные)
Все на фотографии. самый последний столбец для начального выражения
Program maximum;
Var a, max, k, i: integer;
Begin
max:=0;
k:=0;
For i:=1 to 4 do
begin
Readln(a);
if (a > max) then
Begin
max:=a;
k:=1;
end else begin
If (a = max) then
k:=k+1;
end;
end;
end;
Writeln(max,k);
end.
Ответ:
program n;
var a, b :real;
begin
a:=1.99918;
b:=2.4176;
if (a<b) then
writeln ('1,99918 < 2,4176')
else writeln ('1,99918 > 2,4176')
end.
Объяснение:
var a,b,c: integer;
begin
read(a,b,c);
if (a>b) and (a>c) and (b>c) then write(a,b,c);
if (a>b) and (a>c) and (b<c) then write(a,c,b);
if (b>a) and (b>c) and (a>c) then write(b,a,c);
if (b>a) and (b>c) and (a<c) then write(b,c,a);
if (c>a) and (c>b) and (a>b) then write(c,a,b);
if (c>a) and (c>b) and (a<b) then write(c,b,a);
end;