amxvel7596
?>

Начертить схему, записать алгоритм и программу на языке программирования паскаль для вычисления таблицы значений функции для x=1, 2, 3, 4, 5, 6, 7, 8, 9, 10. {5x, если x > = 0} {4x+2, если x < 0}

Информатика

Ответы

marinavg63607

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. // Конец программы

marinakovyakhova

#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}
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

marat7
AkimovaI1608
Nikita_Lina1305
Budanov317
Kateshaeva
Владимирович_Слабый
Vello Olga
Gainalii1912
Олеся
sergeykirushev
daarisgoy
e-liza-k
Геннадьевна Вета560
mikek0906
postbox