Так как целевой язык НЕ указан, написал на C# (+ форматированный тест программы во вложениях. main.cs)
using System;
public class Test
{
/// <summary>
/// Метод для получения целого числа с клавиатуры
/// </summary>
/// <returns>Целое число, введённое с клавиатуры</returns>
public static int GetInt()
{
string input = Console.ReadLine();
return int.Parse(input);
}
/// <summary>
/// Метод для получения любого действительного числа с клавиатуры
/// </summary>
/// <returns>Действительное число, введённое с клавиатуры</returns>
public static double GetNumb()
{
string input = Console.ReadLine();
return double.Parse(input.Replace(",", "."));
}
/// <summary>
/// Точка входа в программу
/// </summary>
public static void Main()
{
//Получаем N
int N = 0;
for (; ; )
{
Console.Write("Введите количество цифр в последовательности - N: ");
try
{
N = GetInt();
break;
}
catch
{
Console.WriteLine("Некорректный ввод!\n");
}
}
// Создаём на основе полученного N массив чисел и заполняем его данными с клавиатуры
double[] A = new double[N];
for (int i = 0; i < N; ++i)
{
for (; ; )
{
Console.Write("A[{0}]: ", i + 1);
try
{
A[i] = GetNumb();
if (A[i] < -10000 || A[i] > 10000)
throw new Exception("Выход из диапазона");
break;
}
catch
{
Console.WriteLine("Некорректный ввод!\n");
}
}
}
// Задание 1
Console.Write("1) Числа, кратные 3, но НЕ кратные 5: ");
for (int i = 0; i < N; ++i)
if (A[i] % 3 == 0 && A[i] % 5 != 0)
Console.Write("{0} ", A[i]);
Console.WriteLine();
// Задание 2
Console.Write("2) Числа, входящие в диапазон: ");
for (int i = 0; i < N; ++i)
if (Math.Abs(A[i]) <= 100)
Console.Write("{0} ", A[i]);
Console.WriteLine();
// Задание 3
Console.Write("3) Количество НЕчётных чисел: ");
int K = 0;
for (int i = 0; i < N; ++i)
if (A[i] % 2 != 0) K++;
Console.WriteLine("{0}\n", K);
}
}
Не совсем понятно, что Вы имеете в виду под "работой с текстом".
Простейшая работа с текстом - это его ввод. Такую работу можно было делать уже на компьютере ENIAC, куда можно было в качестве клавиатуры подключить телетайп.
Если "под работой с текстом" Вы подразумеваете первый текстовый редактор, то считается, что подобным редактором был Electric Pencil, появившийся в 1975-1977 гг. для компьютеров Альтаир.
В 1963 году Айван Сазерленд представил первый в мире графический редактор и систему автоматизированного проектирования Sketchpad.
Первая компьютерная музыка была воспроизведена Джеффом Хиллом на компьютере CSIRAC,
в 1951-го года в Сиднее.
1178400
Объяснение:
Работал с кодом: (через массив)
var a,b:integer;
f:array [0..24] of integer;
begin
for var n:=1 to 24 do begin
if n=1 then
f[n]:=2;
if n>1 then
f[n]:=f[n-1]+f[n-2]+4*n;
end;
writeln (f[24]);
end.
Код с функцией.
function f(n:integer):integer;
begin
if n=1 then result:=2
else if n>1 then result:=f(n-1)+f(n-2)+4*n
end;
var n:integer;
begin
readln (n);
writeln (f(n));
end.