#include <iostream>
#include <vector>
using namespace std;
int fibo(int n){
if(n == 1 || n == 2)
return 1;
return fibo(n-1) + fibo(n-2);
}
void solve1(){
int n;
cin >> n;
cout << fibo(n);
}
void solve2(){
const int INF = 1e9 + 7;
int n, mx1 = -INF, mx2 = -INF;
cin >> n;
vector<int> a(n);
for(auto &i : a) cin >> i;
for(auto &i : a){
if(i > mx1){
mx2 = mx1;
mx1 = i;
}
else if(i > mx2)
mx2 = i;
}
cout << mx2 << " " << mx1;
}
Поделитесь своими знаниями, ответьте на вопрос:
Начертить схему, записать алгоритм и программу на языке программирования паскаль для вычисления таблицы значений функции для x=1, 2, 3, 4, 5, 6, 7, 8, 9, 10. {5x, если x > = 0} {4x+2, если x < 0}
program amountnumbers;
var
amount, number, a: integer;
begin
write('Введите трехзначное число: ');
read(number);
writeln('Введите число А:');
read(a);
while number > 0 do
begin
amount := amount + number mod 10;
number := number div 10;
end;
if (amount mod a = 0) then
writeln('Да')
else
writeln('Нет');
end.
Объяснение:
program amountnumbers; // Название программы
var
amount, number, a: integer; // Целочисленные переменные:
amount - сумма цифр трехзначного числа;number - трехзначное число, вводимое с клавиатуры;a - число для проверки на кратность.begin // Начало программы
write('Введите трехзначное число: '); // Вывод сообщения в консоль
read(number); // Считываем трехзначное число с клавиатуры
writeln('Введите число А:'); // Вывод сообщения в консоль
read(a); // Считываем число А с клавиатуры
while number > 0 do // Пока значение переменной number > 0
begin // Начало цикла
amount := amount + number mod 10; // Сумма цифр = сумма цифр + последняя цифра числа
number := number div 10; // Отделяем последнюю цифру от числа
end; // Конец цикла
if (amount mod a = 0) then // Если значение переменной amount делится на значение переменной A без остатка, тогда
writeln('Да') // Вывод сообщения в консоль
else // Иначе
writeln('Нет'); // Вывод сообщения в консоль
end. // Конец программы