tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Создать программу в паскале
Создать программу в паскале для того чтобы решать "с полуночи до настоящего времени а секунд,определить время которое показывают часы
korolevaleksan
2 31.05.2019 00:40
1
Ответы
Yulia2803
01.07.2020 10:17
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastya632011
25.07.2019 10:50
Статья набранная на компьютере содержит 64 страницы, на каждой странице 40 строк, в каждой строке 40 символов. определите размер статьи в кодировке кои-8 , в которой каждый символ...
kairat0101
25.07.2019 10:40
Массив содержит четное количество элементов. напишите программу которая сортирует первую половину массива по возрастанию а вторую по убыванию. каждый элемент должен остаться в...
kisazaya4
25.07.2019 10:40
Написать программу в которой 20 раз выводится символ @...
FlafeRCat
25.07.2019 10:40
Составить программу нахождения количества положительных элементов в массиве из n вещественных чисел...
temalishchenko
25.07.2019 10:30
Перевести следующие числа из десятичной системы счисления в двоичную, восьмеричную, шестнадцатеричную системы счисления: a) 463 b) 1209 c) 362 d) 3925 e) 11355...
Dashalu45
25.07.2019 10:30
1)присвоить переменным a,b,c значения 10,20,30. 2)что является результатом выполнения оператора: write(a) write( a ) write( a= ,a) 3)каким образом можно вывести на экран число...
lol1039
25.07.2019 10:30
Запишите на языке дробь a c умножить на дробь b a минус дробь ab-c делить cd...
taniussa1
25.07.2019 10:30
Написать программу для паскаля: массив а, состоящий из 10 целых элементов задан через random. все элементы массива разделить на 2 элемент. вывести на экран старый и новый массив....
Subina00
09.05.2019 18:08
Укажіть дію, яка використовується під час швидкого форматування диска а. розмітка на дорожки і сектори б.очищення вмісту fat в. запис на диск системних файлів г. дефрагментація...
masik01012015
09.05.2019 18:02
На завтра запиши сведения сайта игры , дикий интернет-лес название описание и интересно ...
Популярные вопросы
СОЧ-4 четверть. Геометрия надо...
3
Задание 3. Окончите предложения. Пример: Вчера мы ходили в гости к другу, …...
1
Найди с координатной прямой сумму чисел 1 и −10....
2
1+22322333333333333×3÷3÷3×1...
3
Производственная инфраструктура включает нефтеперерабатывающие заводы, нефтяные...
1
Укажіть біологічні причини того, чому метаболічні захворювання чи фізіологічні...
2
V1=175м/мин V2=75м/мин S=200м/мин tкезд.=?м/мин...
2
Каким орденом ЮНЕСКО Ислом А.К. был награждён в 1998 году...
3
Які успіхи й невдачі були в справах Констянтину Івановича Острозького...
1
По братски быстрей , лам 4-е задание. Соотнесите авторов с их открытиями.Иоганн...
1
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.