<span>Запись арифметических выражений: Цифры, знаки действий
Запись мелодий: Нотные знаки
</span><span>Запись звуков речи: Буквы алфавита
Оформление календаря погода: Знаки погоды (облачно, пасмурно...)
Управление движением транспорта: </span>Дорожные знаки
dim a,b,n,s as integer
input a
b=a
n=0
x=0
do
b=b\10
x=b mod 10 +x ' сумма цифр
n=n+1 'сколько цифр
loop until b<>0
print n, x
if a mod 2 = 0 then print ("четное") else print ("нечетное")
a=a mod 100 ' сколько сотен
print a
'я не помню точно синтаксис фуникций input и print, так что проверь
X*x+2*x-15=0
решаем кв уравнение
x=3
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.
4 тебибайта - это 4*2^40 байт = 2^42 байт
4 терабайта - это 4*10^12 байт
разница - 4*10^11 байт или 0.4 терабайта