Содержит "Если" и "Иначе", либо подобные.
Например - "Он сказал: "либо вы отдаете деньги сейчас, либо вы пожалеете".
if (Вы отдали деньги) then (Все хорошо)
else (Вы пожалеете)
Емкость жесткого диска варьируется от 128 гигабайт до 4 терабайт.
Емкость CD дисков около 700 мегабайт.
Емкость DVD дисков около от 4 Гб до 7 Гб.
Емкость flash накопителей примерно от 128 мегабйт до 2 терабайт.
<span>Емкость blue-ray дисков от 25 гб до 50 гб.</span>
1.
var n,s:integer;
beginRandomize;
n:=Random(900)+100;
writeln('n=',n);
s:=(n div 100) + (n div 10 mod 10) + (n mod 10);
writeln('Сумма цифр = ',s);
end.
Пример:
n=295
Сумма цифр = 16
2.
var n,m:integer;
begin
Randomize;
n:=Random(90)+10;
writeln('n=',n);
m:=1000*(n mod 10)+100*(n div 10)+n;
writeln('Полученное число = ',m);
end.
Пример:
n=67
Полученное число = 7667
Const
n=5;
type
MyArr=array[1..n] of integer;
var ar:MyArr;
i,maxi,val:integer;
k:real;
function Maxii(ar:MyArr):
integer;
var i,max:integer;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then
begin;
max:=ar[i];
maxii:=i;
end;
end;
function Amp(ar:MyArr):integer;
var i,max,s:integer;
p:real;
begin;
Max:=-2147483648;
for i:=1 to n do
if ar[i]>max then max:=ar[i];
p:=max/100*10;
for i:=1 to n do
if ar[i]>=max-p then inc(s);
Amp:=s;
end;
begin;
for i:=1 to n do
begin;
readln(ar[i]);
k:=k+ar[i];
end;
k:=k/n;
writeln('Средний рост:',k);
maxi:=maxii(ar);
writeln('Самый высокий призывник:',maxi);
val:=Amp(ar);
writeln('4:',val);
<span>end.</span>
