<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
В данной программе при запуске надо ввести одно число.
После чего выводится 10 чисел от 9 до заданного не включительно.
Например, при вводе числа 20, выведутся числа от 10 до 19.
#include <iostream>
#include <time.h>
using namespace std;
int main ()
{
srand(time(NULL));
int a;
cin >> a;
for (int i=0; i<10; i++) {
cout << rand() % (a-10) +10;
}
return 0;
}
Var a,b:string;
i:integer;
begin
readln(a);
readln(b);
for i:=1 to length(a) do
if a[i]=b then continue
else write(a[i]);
<span>end.</span>
Книгопечатание — процесс создания печатной продукции. Термин обычно употребляют в историческом контексте.