Нужно составить программу, которая по введенной k-й секунде суток определяет, сколько целых часов h и целых минут с начала суток.
program gat;
var k,h,m:integer;
begin
write ('Введите количество секунд ');
readln ('k');
h:=k div 3600;
m:=(k-h)*3600 div 60;
writeln ('It is ','h',' hours ','m',' minutes');
end.
паскаль ide выдает ошибки: error in type definition, variable identifier expected, variable "k" does not seem to be initialized, identifier not found "m".
что нужно исправить?
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН
КОН
3)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ;
УКАЗ
мин_зн := массив[0]; мин_ном := 0;
ОТ сч := 1 ДО N - 1 ВЫП
ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН
КОН