//PascalABC.Net
var
n:longint;
s,m,h:integer;
ss,mm,hh:string;
begin
Write('Целое число секунд: '); Read(n);
h:=n div 3600; n:=n mod 3600;
m:=n div 60; s:=n mod 60;
Str(s,ss); if length(ss)=1 then ss:='0'+ss;
Str(m,mm); if length(mm)=1 then mm:='0'+mm;
Str(h,hh); if length(hh)=1 then hh:='0'+hh;
Writeln(hh+':'+mm+':'+ss)
end.
<em><u>Тестовое решение:</u></em>
Целое число секунд: 31415
08:43:35
#include <iostream>
using namespace std;
int main()
{
int n;
cin >> n;
int a[n];
cin >> a[0] >> a[1];
for (int i = 2; i < n; i++)
a[i] = 10 - a[i-1] - a[i-2];
for (int i = 0; i < n; i++)
cout << a[i];
return 0;
}
1. не (123<10) или не (123 четное)
не ложно или не ложно
истина или истина = правда
2. не (56<10) или не (56 четное)
истина или не истина = истина
3. не (9<10) или не (9 четное)
не истина или не лож
лож или истина = истина
4. не (8<10) или не (8 четное)
не истина или не истина
лож или лож = лож
ответ 4