Var a, b, c: real
BEGIN
write ('Vvedite a, b, c'); readln (a, b, c);
If ((a+b>c) and (a+c>b) and (b+c>a)) then writeln ('Tr-nik suschestvuet, P = ', a+b+c)
else writeln ('Tr-nik ne suschestvuet');
END.
1. Бухгалтерии, составление спецификаций, здравоохранение... Везде)
2. Обеспечить понятные инструменты форматирования и набора текста (сваими словами:з)
Var a,b,k,s:integer;
begin
readln(a);
b:=a;
k:=0;
while b>0 do
begin
k:=k+1;
b:=b div 10;
end;
b:=a;
while b>0 do
begin
s:=s+round(power((b mod 10),k));
b:=b div 10;
end;
if a=s then writeln('Число ',a,' является числом Армстронга')
else writeln('Число ',a,' не является числом Армстронга');
end.
Пример:
153
Число 153 является числом Армстронга
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
1
4 дороги = 2^2 т.е. 2 бита информации
2
16 = 2^4 значит символ веси 4 бит
Вес текста = 384 * 4 бит = 1536.0 бит = 192.0 байт = 0.1875 Кбайт