Это зависит от того, что ты напишешь в теле функции. В некоторых ЯП, типа ублюдочного Пасцала, она является встроенной и означает взятие дробной части числа.
1. 40960 бит/8 = 5120 байт /1024= 5 Кбайт
2. ДВГАБ
3. Кол-во страниц = Объем текста (в битах) /кол-во строк*кол-во символов*объем 1 символа (в битах) = (20*1024*8)/40*64*16= 4 страницы
4. С:/Опрос/7класс/Самостоятельная работа.doc
5. Всего пикселей= 150*40 = 6000, в 16-цветной палитре на каждый пиксель приходится 4 бита, значит
объем картинки: 6000*4 бит = 24000 бит
скорость передачи данных: 24000 бит/5 сек = 4800 бит/сек = 600 Байт/сек
Первая
Program n1;
Uses CRT;
Var a,b,c,k: integer;
begin
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a=b)and(b=c) then begin k:=1; writeln('Ravnostoronnij') end else
If (a=b)or(b=c)or(a=c) then begin k:=1; writeln('Ravnobedrennij'); end;
If (sqr(a)=sqr(b)+sqr(c))or(sqr(b)=sqr(a)+sqr(c))or(sqr(c)=sqr(b)+sqr(a))
then begin k:=1; writeln('Pryamoygolnij'); end;
If (a>b+c)or(b>a+c)or(c>a+b) then begin k:=1; writeln('treygolnik nelza sostavit'); end;
If k=0 then writeln('Treygolnik Raznostoronnij');
readln
end.
Вторая
Program n1;
Uses CRT;
Var a,b,c: integer;
begin
ClrScr;
Writeln('Vvedite a,b,c');
Readln(a,b,c);
If (a>0)and(b>0)and(c>0) then writeln('Summa kvadratov=',sqr(a)+sqr(b)+sqr(b));
If (a mod 2=0)or(b mod 2=0)or(c mod 2=0) then writeln('Summa =',a+b+c,', Proizvedenie =',a*b*c);
readln
end.
Var
x,x1,x2,s: integer;
begin
write('Введите x1:');readln(x1);
write('Введите x2:');readln(x2);
//ищем сумму цифр этих чисел
x:=x1 div 100; s:=s+x;
x:=x2 div 100; s:=s+x;
x:=x1 div 10 mod 10; s:=s+x;
x:=x2 div 10 mod 10; s:=s+x;
x:=x1 mod 10; s:=s+x;
x:=x2 mod 10; s:=s+x;
s:=abs(s);
//Теперь в s сумма цифр введенных x1 и x2
writeln('Сумма цифр ',x1,' и ', x2,' = ',s);
if (s>9) and (s<100) then writeln('Произведение чисел =',x1*x2)
else writeln('Разность чисел = ',x1-x2);
end.
Тест №1
Введите x1:-999
Введите x2:-888
Сумма цифр -999 и -888 = 51
Произведение чисел =887112
Тест №2
Введите x1:111
Введите x2:222
Сумма цифр 111 и 222 = 9
Разность чисел = -111