begin
var a := ArrRandom(10, 1, 10); a.Println;
for var i := 0 to a.High do
if i.isOdd then a[i] *= 2
else a[i] *= 3;
a.Println;
end.
45 раз
Он будет прибавлять единицу к n 45 раз.
При значении А=1 и В=1
Вопрос по инфознайке?
<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