//Pascal
//var 1
var i:integer;
s:real;
begin
readln(s);
for i:=1 to 5 do s:=s+(sqr(s)+i)/i;
writeln(s);
end.
2 кбайт= 16380 бит
16380/1024=16 бит один символ
Паскаль ABC.net версии 3.3.5
var
n: word;
begin
write('Введите номер дня недели: ');
readln(n);
case n of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье');
else writeln('Нет такого номера дня недели');
end;
end.
1111000(120 в десятичной) + 100(4 в десятичной) = 104 в десятичной = 1101000 в двоичной.
Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.