program z1;
var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (b>c) then writeln('b - наибольшее число') else
writeln('c - наибольшее число');
if (a<b) and (a<c) then writeln ('a-наименьшее число') else
if (b<a) and (b<c) then writeln ('b-наименьшее число') else
writeln ('c-наименьшее число');
if ((a>b) and (a < c)) or ((a < b) and (a > c)) then
writeln('a-среднее число')
else
if ((b > a) and (b < c)) or ((b < a) and (b > c)) then
writeln('b-среднее число')
else
writeln('c-среднее число');
end.
Сфоткал с тетрадки за 8 класс
Аня по математике
Саша по географии
Лена по истории
Вася по литературе
Миша по информатике
Var a, b: real;
{а – возраст Маши; b – возраст Cаши}
begin
readln (a, b);
if A>B then
writeln ('Маша старше Саши')
else if a=b then
writeln('Саша и Маша ровесники')
else
writeln ('Саша старше Маши');
readln;
<span>end.</span>
Без пояснений если, то 26 секунд:)
Если подробнее, то 2048кб это 2мб, значит скорость 2мб/сек.
1048кб это 1мб, значит скорость 1мб/сек.
512кб это 0.5мб, значит скорость пол-мегабита в сек.
Итого, 1 файл передастся за 24 секунды, второй за 26 секунд и третий за 25 секунд. Всего потратиться минимум 26 секунд.