Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.
4. Буфер обміну, зокрема, дуже корисна функція, адже набирати те саме речення по 3-4 рази втомлює та дратує водночас. З ним легко ввести одні й ті ж самі слова, наприклад, в таблиці, замість того, щоб набирати його вручну. Він корисний, коли потрібно розіслати оголошення в соц. мережі кільком друзям, аніж нервуватись над написанням кожного оголошення.
Вибачайте, але 5 я не зможу зробити, але хоча би з цим допомогла.
1)19<468
2)5<7
Вот возьми пригодиться numsys . ru
Переводим всё в десятичную с.счисления, посчитаем и переведем ответ в какую надо с.счисления:
10(16)= 16 (10)
10(8)= 8 (10)
10 (2)= 2 (10)
ИТОГО: 16+8*2=32(10)
32(10)=100000 (2)
ответ: 3
Пусть даны a и b
a := a + b;
b := a - b;
a := a - b;
Проверка:
а = 1; b = 2;
a = 1 + 2 = 3;
b = 3 - 2 = 1;
a = 3 - 1 = 2;
a = 2; b = 1;
Всё верно!
Поменяли значения местами:)