T=150*2*8/(2+6)=300 сек=5 мин
ответ передача заняла 5 минут.
Даааааааааааааааааааааааааааааа
Uses crt;var k, i, a, b, c: byte;
begin clrscr; randomize; for i := 1 to 10 do begin a := random(1, 10); b := random(1, 10); write(a, ' * ', b, ' = '); read(c); if a * b = c then inc(k); end; case k of 0..3: writeln(k, '0% Неудовлетворительно'); 4..7: writeln(k, '0% Удовлетворительно'); 8..9: writeln(k, '0% Хорошо'); 10: writeln(k, '0% Отлично'); end;end.
3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.
Вот пример правильной трассировочной таблицы. Впредь делайте именно так.
Из таблицы видно, что в момент завершения программы переменная с будет иметь значение 2.