Пишет Неожиданный символ ' ' строка 2 в PascalABC Вот текст программы: var n, h, m, s :...

0 голосов
98 просмотров

Пишет Неожиданный символ ' ' строка 2 в PascalABC
Вот текст программы:
var
n, h, m, s : integer;
begin
read(n);
n := n mod (3600*24);
h := n div 3600;
m := n mod 3600 div 60;
s := n mod 60;
writeln(h div 10, h mod 10, ':', m div 10, m mod 10, ':', s div 10, s mod 10);
end.



Информатика (40 баллов) | 98 просмотров
Дан 1 ответ
0 голосов

Попробуйте может так:

var n, h, m, s: integer;
begin
read(n);
n:= n mod (3600*24);
h:= n div 3600;
m:= n mod 3600 div 60;
s:= n mod 60;
writeln(h div 10, h mod 10, ':', m div 10, m mod 10, ':', s div 10, s mod 10);
end.

(5.6k баллов)
0

Не пойму, что его не устраивало в моем варианте. Всегда так писал, а в этот раз не принял.