101010 + 1110 = 111000
1010 + 1111 = 11001
1000 + 1011 = 10011
Var n:integer;
begin
write('n = ');
readln(n);
if n mod 2 = 0
then n:=3*n else n:=2*n;
writeln('n = ',n);
end.
Пример:
n = 7
n = 14
Сначала переводим 20(Кб) в биты для этого 20*1024*8=163840(бит) потом определим количество символов 163840/16=10240 найдем количество строк 10240/64=160 и наконец находим число страниц 160/40=4. Ответ: 4 страницы.
Var s:string;
begin;
writeln('Ваш пол?');
readl(s);
if (s='мужской') then
writeln('Вы-защитник отечества');
if (s='женский') then
writeln('Вам не повезло - женцины не служат в армии');
end.
Var
a,b,c,d:real;
k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;
if b<0 then k:=k+1;
if c<0 then k:=k+1;
if d<0 then k:=k+1;
WriteLn('Количество отрицательных: ',k);
End.