Помогите пожалуйста создать программу в Паскале для того чтобы решать задачу "с полуночи до настоящего времени прошло а секунд,определить время которое
5-9 класс
|
показывают часы
program chik;
var a,h:integer;
begin
read(a);
h:=(a div 3600)mod 24;
if(h>12)then begin
writeln(h,' часов по электронной или ',h-12,' часов по стрелки');
end;
if(h>0)and(h<13)then writeln(h,'часов');
if(h=0)then writeln('полночь');
end.
Другие вопросы из категории
МОЖНО В РАЗВЁРНУТОМ ОТВЕТЕ?***
тояние между пунктирами – 1 шаг, длина пунктира – 1 шаг. Исходное положение исполнителя – произвольное.
Читайте также
Если дано трехзначное число, например 123 его можно представить в виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу, которая, получая от пользователя трехзначное число, будет определять из каких цифр оно состоит и выводить их через пробел (например, 1_2_3).
y=x^2-6x+10
число отрицательное, то выведите сообщение, что значение у не существует.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.