Не знаю, зачем такие сложности... Умножь i на t и получишь время)
А) 11201=127 б)1423=238 в)1205=446 г)291=586 ответ:а)127
//дано трехзначное число найдите сумму его цифр
var x,y,i:word;
begin
writeln('Введите трехзначное число');
readln (x);
while (999<x) or (x<100) do //в цикле проверяется "трехзначность" числа
begin
writeln('Вы ввели не трехзначное число попробуйте еще раз');
readln (x);
end;
for i:=1 to 3 do // число делиться на цифры
begin
y:=y+x mod 10;
x:=x div 10;
end;
writeln('Сумма цифр данного числа ',y);
<span>end.</span>
Для развития логического и стратегического мышления.
Можно только в c:\windows\system32;
нажимаешь пуск потом компьютер и там пишешь в верху c:\windows\system32 и ты уже там.