Ответ: 1024
using System;
class Program { static void Main(string[] args) { double n = Math.Pow(2.00, 12.00); long howMuch = 0;
SumOfDigits sod = new SumOfDigits(); for (int i = 0; i < n; ++i) { int SumI = sod.CountSumOfDigits(i);
if (SumI % 4 == 0) { howMuch++; } } Console.WriteLine(howMuch); //Console.WriteLine(n); Console.ReadLine(); } } class SumOfDigits { public int CountSumOfDigits(int x) { int sum = 0; while (x > 0) {
sum += x % 10; x /= 10; } return sum; } }
Begin
var a:=ArrRandom(10,-150,250); a.Println;
var max := a.Max;
println('Максимальное = ', max);
a.Transform(t->t=max ? max*(-1):t);
a.Println;
end.
Program n_1;
var a, b, i, n: integer; c: boolean;
begin
c:=true;
read(n, a);
for i:=2 to n do begin
read(b);
if b>=a then c:=false;
a:=b;
end;
if (c=true) then writeln('Поседовательность убывающая')
else writeln('Поседовательность не является убывающей');
end.
Это для строго убывающей последовательности. Если требуется для невозрастающей - замени if b>=a then c:=false; на b>a then c:=false;
I=1
f=0+1*1=1
i=2
f=1+2*2=5
i=3
f=5+3*3=14
i=4
f=14+4*4=30
i=5 30+5*5=(55)
Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.