Информационная модель домашней библиотеки
Uses crt;
var i,n:integer;
begin
readln(n);
for i:=1 to 9 do
writeln(i,'x',n,'=',i*n);
end.
//PascalABC.Net 3.0, сборка 1053
function F(n:integer):longint;
begin
case n of
1: F:=4;
2: F:=-4;
else F:=6*F(n-1)-4*F(n-2)
end
end;
begin
Writeln('F(5)=',F(5)) { тестовое}
end.
<em><u>Тестовое решение:</u></em>
F(5)=-1184
Вот в придложенном файле работающая программа, только я пока не догнал как ее коруглить, чтобы в ответе не было число + куча нолей в степени Е+00, а было просто числа например 2.5 или 3,7 или просто 5 или 7
Имеет экран, кнопки(у), разъем 3.5 mm miniJack, порт для зарядки, батарею, возможно имеет : (блютуз, ик-порт, вай-фай). подключен к сети.