Program f1;
var x,y: real;
begin
readln(x);
if x<=0 then y:=0 else второе условие;
writeln( y:3:0);
end.
Var
s, m: integer;
begin
writeln('Возраст Саши = ');
read(s);
writeln('Возраст Маши = ');
read(m);
if s > m then writeln('Саша старше Маши');
if m > s then writeln('Маша старше Саши');
if m = s then writeln('Одногодки');
end.
где k - общее кол-во карандашей
i - кол-во информации, которое несет в себе 1 карандаш
тогда
бит
N=2^i
256=2^8
i=8 (один символ кодируется восемью битами или одним байтом)
I=ki=256*1=256 байт
PascalABC.NET
Версия 3.3. сборка 1583 (25.11.2017)
var
n:integer;
a:array[1..100] of integer;
begin
write('Введите размер массива (n<100): ');readln(n);
var max:=0;
var min:=101;
for var i:=1 to n do
begin
a[i]:=random(0,100);
write(a[i],' ');
if i mod 2=0 then
if a[i]>max then max:=a[i]
else
if a[i]<min then min:=a[i];
end;
writeln;
writeln('Максимальный - ',max);
writeln('Минимальный - ',min);
readln;
end.
Пример:
Введите размер массива (n<100): 10
15 32 90 97 35 62 52 37 5 63
Максимальный - 97
Минимальный - 37