Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
1.Сообщение несет 4 бита информации 2^4=N N=16 номеров полулюкс
16+36=52 всего
2. N=56 i=6 бит/1 символ
30*70*6*10= 126000 бит (15750 байт )
Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>
8 символов "Фамилия" и 6 символов "Имя". Взята стандартная кодировка в 8 Бит. (8+6)*8 = 112 Бит информации.
Объём на 1 страницу 50*60 = 3 000 символов.
3000*8 = 24 000 Бит
Расчёт проведу в 2 способа: 1. Отталкиваясь от реального объёма флешки. 2. Исходя из объёма в 8 Гб
Первый вариант:
Реальный объём примерно 8 000 000 000 Байт
8 000 000 000*8 = 64 000 000 000 Бит
64 000 000 000/24 000 = 2 666 666 страниц можно записать на флешку (округленно до целого числа)
Второй вариант:
8*1024*1024*1024*8 = 68 719 476 736 Бит
68 719 476 736/24 000 = 2 863 311 страниц можно записать на флешку (округленно до целого числа)
31 mod 7 = 3 и это означает понедельник.
Пн - 3
Вт - 4
Ср - 5
Чт - 6
Пт - 0 (счет от 0 до 6 по кольцу, потому что это отстатки деления на 7)
Сб - 1
Вс - 2
Тогда получаем
chislo := chislo mod 7
если chislo=3 то y:= "Пн"
если chislo=4 то y:= "Вт"
если chislo=5 то y:= "Ср"
если chislo=6 то y:= "Чт"
если chislo=0 то y:= "Пт"
если chislo=1 то y:= "Сб"
если chislo=2 то y:= "Вс"