// 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.
Решение: ГАНТЕЛИ РЕНТГЕН ТИГР АГЕНТ РАЛЛИ ИГРА НИТРАТ
Объяснение:
#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;
}