===== PascalABC.NET =====
begin
var k := ReadInteger; // ввод k
if k > 2 then // анализ аномалии
begin
var (x1, x2, i) := (1, 1, 2);
var x: integer;
while i < k do
begin
x := x1 + x2;
x1 := x2;
x2 := x;
i += 1
end;
Print(x)
end
else
Print('Ошибка')
end.
#include <cmath>
#include <iostream>
int perevod(bool a, int minutes)
{
if (a)
{
return floor(static_cast<float>(minutes) / 60);
}
else
{
return minutes % 60;
}
}
int main()
{
int hours, hours1, hours2;
int minutes, minutes1, minutes2;
std::cin >> hours >> minutes;
std::cin >> hours1 >> minutes1;
std::cin >> hours2 >> minutes2;
int temp = minutes + minutes1 + minutes2;
minutes = perevod(0, temp);
hours += perevod(1, temp) + hours1 + hours2;
std::cout << hours << " " << minutes;
return 0;
}
// Mingw
Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>
Начало
взять лопату
почистить снег
положить лопату
Конец