1. Направляет запрос на сервер.
4. Выводит данные на экран.
5. Составляет отчет для вывода на печать.
Ответ: 1, 4, 5.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
Ответ:
6 28 496 8128
#include <iostream>
#include <ctime>
using namespace std;
int main ()
{
<span> setlocale (0,"russian");
</span><span> srand (time(NULL));
</span><span> short N;</span><span>
int sum=0;</span><span>
int max=0;</span><span>
cout << "N=";</span><span>
cin >> N;
</span><span> int *array=new int [N];</span><span>
for (short i=0;i<N;i++)</span><span>
array[i]=rand()%201-100;
</span><span> cout << "Получившийся массив: " << endl;
</span><span> for (short i=0;i<N;i++)</span><span>
{
</span><span> cout << array[i] << ' ';
</span><span> sum+=array[i];</span><span>
}
</span><span> for (short i=0;i<N-1;i++)</span><span>
{
</span><span> if (max<array[i])
</span><span> max=array[i];</span><span>
}
</span><span> cout << endl;</span><span>
cout << "Сумма элементов: " << sum << endl;</span><span>
cout << "Максимальное число: " << max << endl;
</span><span> system ("PAUSE");
</span><span> return 0;
</span><span>}</span>