Uses crt;
var a,b:integer;
begin
randomize;
a:=random(100);
writeln(a);
repeat
readln(b);
if b=100 then writeln('дополнено');
if b<100 then writeln('прибавь еще');
if b>100 then writeln('убавь-ка');
until b=100;
end.
Форматирование документа - изменение его внешнего вида.
К Операциям относятся:
изменение стиля, размера шрифта, его начертания, цвета
постановка номера страниц, оглавления
выравнивание абзацев
формирование абзацав
настройка ориентации страницы
и т.д.
Var chisl:array [1..5]of integer;
i,max:integer;
begin
for i:=1 to 5 do begin
Write(i,'-число='); Readln(chisl[i]); end;
max:=0;
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.
Var
P: real;
begin
readln(P);
writeln(P*P/4/Pi);
end.