Возможно западает какая-нибудь клавиша на клавиатуре или мышке (если были механические повреждения или что-нибудь проливали). Либо может кто-то шутить, подключившись через программу удаленного управления, например.
Жесткие диски, флеш карты, касеты.
Результаты идентичны, равенство доказано.
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
Объём книги
600*36*64 = <span><span><span>
1382400</span> символов
При 1 байте на символ - </span></span><span><span><span>
1382400</span> байт
64 кб/с - это килобиты в секунду?
Тогда, при 8 битах в байте, надо передать
</span></span><span><span><span>
1382400</span>*8 = </span></span><span><span><span>
11059200</span> бит
за секунду передаётся 64*1024= </span></span><span><span><span>
65536</span> бит
а времени уйдёт
</span></span>11059200/65536 = <span><span><span>
168,75
</span>с</span></span>
