- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
Uses CRT;
const
a=10;
b=21;
c=30;
Var
max: integer;
Begin
if (a>b) then
if (a>c) then
begin
max:=a;
end
else max:=c;
if (b>a)then
if (b>c)then
max:=b
else
max:=c;
Writeln(max);
if (max mod 5 = 0 ) then
writeln ('Кратное')
else writeln('некратное');
End.
begin
if a>b then
max:=a
else
max:=b;
end;
...
if max(max(a,b),c) mod 5 = 0 then ...
Так пойдет?
ты уж лучше бы и не позорился суя суда эту какаху
writeln ('Кратное');
Но это очень сложная для понимания программа.