Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.
Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
Требуется выполнить сортировку временных моментов, заданных в часах, минутах и секундах.
Входные данные
Во входном файле INPUT.TXT в первой строке записано число N (1<=N<=100), а в последующих N строках N моментов времени. Каждый момент времени задается 3 целыми числами - часы (от 0 до 23), минуты (от 0 до 59) и секунды (от 0 до 59).
Выходные данные
В выходной файл OUTPUT.TXT выведите моменты времени, упорядоченные в порядке неубывания без ведущих нулей.
Пример:
INPUT.TXT
4
10 20 30
7 30 00
23 59 59
<span>13 30 30 </span>
OUTPUT.TXT
7 30 0
10 20 30
13 30 30
<span>23 59 59</span>
//Я немного не в себе, так что могу ошибаться. Если что - я не виновата.
1 - определение модели, как это может быть ложью?
3 - модель не может обладать всеми признаками оригинала, но может повторять важнейшие.
4 - смотри пункт 3
7 - можно создавать модели, отражающие разные признаки одного и того же объекта.
1) зайти в пункт меню файл
2) выбрать пункт "Сохранить"
3) выбрать по навигации папку, в которую нужно сохранить
4) дать имя файлу
5) нажать кнопку "Сохранить"