Кольцова
?>

наглядным средством представления состава и структуры системы является 1график 2граф 3схема 4диограма

Информатика

Ответы

mail5

Объяснение:

#include <iostream>

using namespace std;

long double fact(int N)

{

   if(N < 0) // если пользователь ввел отрицательное число

       return 0; // возвращаем ноль

   if (N == 0) // если пользователь ввел ноль,

       return 1; // возвращаем факториал от нуля - не удивляетесь, но это 1 =)

   else // Во всех остальных случаях

       return N * fact(N - 1); // делаем рекурсию.

}

int main()

{

   int N;

   setlocale(0,""); // Включаем кириллицу

   cout << "Введите число для вычисления факториала: ";

   cin >> N;

   cout << "Факториал для числа " << N << " = " << fact(N) << endl << endl; // fact(N) - функция для вычисления факториала.

   return 0;

}

fygasika
Задание 1)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var fam:=ReadlnString('Фамилия:');
  var nam:=ReadlnString('имя:');
  var otch:=ReadlnString('отчество:');
  var fio:=fam+' '+nam+' '+otch;
  Writeln(fio,', длина текста- ',fio.Length)
end.

Тестовое решение
Фамилия: Иванов
имя: Сергей
отчество: Петрович
Иванов Сергей Петрович, длина текста- 22

Задание 3)

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var w:='ИНТЕГРАЛ';
  Writeln(w[5]+w[7]+w[2:5]+w[8]+w[1]);
  Writeln(w[6]+w[4]+w[2:4]+w[5:3:-1]+w[2]);
  Writeln(w[3]+w[1]+w[5:7]);
  Writeln(w[7]+w[5:3:-1]+w[2:4]);
  Writeln(w[6:]+w[8]+w[1]);
  Writeln(w[1]+w[5:8]);
  Writeln(w[2::-1]+w[3]+w[6:8]+w[3])
end.

Решение:
ГАНТЕЛИ
РЕНТГЕН
ТИГР
АГЕНТ
РАЛЛИ
ИГРА
НИТРАТ

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

наглядным средством представления состава и структуры системы является 1график 2граф 3схема 4диограма
Ваше имя (никнейм)*
Email*
Комментарий*

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

lechic3
v-zhigulin1
АнатольевичМиронова885
Расшифровать шифр эль-гамаля: 18 2 17 4 a=2 x=15 p=23
yahottabych201379
Naumenkova-Ivanov
Surkova_Pavlovna
joini09
maltes
polina25258
Lolira64
Stenenko
maisa1991
annayarikova
ruslan
mdsazonovatv1173