Байт килобайт мегабайт и гигабайт
1 гигабайт=1024 мегабайт
1 мегабайт=1024 килобайт
1 килобайт=1024 байт
ну и для общего развития 1 байт=8бит
Из 8 фунтового горшка перелить до краёв в 5 фунтовый горшок, за тем из 3 фунтового в 8 фунтовый)))
Var a,b,c : real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)
then writeln(0)
else if (a<>b)and(b<>c)and(a<>c)
then writeln(1)
else if (a<>b)or(b<>c) then writeln(2)
else writeln(3);
end.
Пример:
a=3
b=3
c=4
2
{
написано на PascalABC.NET но должно работать во всех Паскалях.
Скриншот результата в приложении
}
PROGRAM power_recursive;
var
n,p:word;
function power(num:word; pow:byte):word;
begin
if (pow<2) then
power:=num
else
power:=num*power(num, pow-1);
end;
BEGIN
write('Введите основание степени : '); readln(n);
write('Введите показатель степени >0 : '); readln(p);
writeln( power(n,p) )
END.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7