Vara,b,c:real;begin readln(a,b); if a>=b then begin b:=b*b*b; a:=sqrt(a); end else begin a:=a*a*a; b:=sqrt(b); end; writeln(a:0:0,' ',b:0:0); readlnend.
Var a,b,s,i:integer;
begin
s:=1;
read(a,b);
for i:=a to b do
s:=s*i;
writeln(s);
end.
var
a,b : integer;
begin
writeln('введите 1 число ');
readln(a);
writeln('введите 2 число');
readln(b);
if a>b then
begin
y:=a+1;
writeln('1 число больше',y)
else
begin
y:=b+1;
writeln(' 2 число больше ',y);
end;
end;
end.
GIF, JPEG, PNG, и WebP-форматы у изображения
Ответ:
Выполнение операций процессора измеряется в тактах.