program
HelloWorld;
var b
:double;
var s
:string;
begin
<span> writeln('</span>Введите биты:');
readln(b);
b:= b/8;
writeln('Результат
в байтах:');
writeln(b:15:2);
b:= b/1024;
writeln('Результат
в килобайтах:');
writeln(b:15:2);
end.
Var N,i:integer; s:real;beginwriteln('vvedite N');readln(N);s:=1;for i:=2 to N dos:=s-1/i;writeln('Summa = ',s);end.
Рабочий стол, точно, окна может быть, панель задач
Помой полы
1) убери все вещи с пола,
2) отряхни коврики
3) подмети пол
4) вымой пол
5) мой от угла к выходу
6) помой тряпку под струей воды
7) положи все на место