Дано:
V=136Мб/сек
I=696320Кб
t-?
Решение:
1)I=696320:1024=680Мб
2)680:136=5с.
Ответ: 5 секунд.
begin writeln ('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;
Наука «Информатика» изучает информацию, компьютер, алгоритмы, информационный процесс.
———
Так что больше всего подходит 1 вариант —
Информация.
Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>