Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).
Ответ:
реализовал на паскале
Объяснение:
program While22;
var i, num:integer;
isSimple : boolean;
Begin
isSimple :=true;
readln(num);
if (num mod 2 = 0) and (num<>2)then isSimple := false;
i:=3;
while i*i<=num do
begin
if (num mod i=0)then begin isSimple := false;break; end;
i:=i+2
end;
writeln(isSimple)
end.