C++ / gcc 7.3.0
#include <iostream>
int main()
{
unsigned int A, B, C;
std::cin >> A >> B >> C;
std::cout << std::boolalpha << (A == B || B == C || A == C)
<< std::endl;
return 0;
}
Var
k,fk, k20, count: integer;
function F(x: integer): integer;
begin
if x < 3 then
F := 1
else F := F(x - 1) + F(x - 2);
end;
begin
k20:=F(20);
writeln(k20);
count:=-1; {k=20 мы ж вроде должны вычесть}
for k := 3 to 50 do begin
fk:=F(k);
if fk=k20 then count:=count+1;
write(fk,' ');
end;
writeln(count);
end.
функция работает очень медленно потому что это рикурсия. Функция создает последовательность числ фибоначи которые вообщ то не повторяются потому что последовательность возрастающая. Повторения вообщем возможны изза того что integer это не безконечная последовательность, а кольцо, но дождаться результатов при таким образом построенной функции просто нереально
Ответ:
var a: integer;
x:real;
begin
a:=5;
x:=0.75;
while x <= 1.5 do
begin
writeln('x = ',x,' y = ',a*sqrt(x):0:3);
x:=x+0.5;
end
end.
Компьютер нужен для получения информации.Так же для выполнения различных операций.Компьютер нужен для отправки разных файлов из одного компьютера на другой.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ReadArrInteger(5);
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
6 -4 7 0 2
2 0 7 -4 6