Пишем программы: 1) среди заданных склавиатуры целых чисел а, в, с найти и вывести на экран четные.2) ввести произвольное двузначное число и найти сумму и произведение его цифр.3) написать программу, которая вычисляет значение функции:
112
293
Ответы на вопрос:
var n: longint;
function f(n: integer): longint;
begin
if (n=1)or(n=2) then f: =1 else
f: =f(n-1)+f(n-2);
end;
begin
write("vvedite poziciu chisla: ");
read(n);
write("chislo ryada na dannoy pozicii ravno ",f(n));
end.
Популярно: Информатика
-
Miheevf07.03.2022 13:39
-
Olegg910.08.2022 03:28
-
12345678910АБ226178405.12.2021 09:15
-
den22227601.03.2022 07:48
-
kattun16.06.2023 23:41
-
даниил1агапов23.07.2021 05:52
-
ксения137628.07.2020 21:11
-
16oce119.05.2023 06:02
-
mariaa98701.06.2022 21:06
-
VikaBakevich18.02.2022 17:27