[5261, 5281, 5333, 5351, 5393, 5399, 5407, 5441, 5443, 5449, 5483, 5519, 5531, 5557, 5573, 5591, 5623, 5641, 5647, 5669, 5683, 5689, 5711, 5717, 5737, 5779, 5791, 5801, 5807, 5821, 5827, 5843, 5849, 5861, 5867, 5869, 5881, 5939, 5953, 6011, 6037, 6053, 6073, 6079, 6091, 6101, 6121, 6143, 6163, 6211, 6217, 6257, 6271, 6277]
54
#Код программы на Ruby22
t=[]
primes = NumberHelpers::getPrimeNumbers(6288, nil)
primes.each do |pr|
t << pr if pr >= 5232 and NumberHelpers::GetNumbersSum(pr) % 2 == 0
end
p t
p t.size
def getPrimeNumbers(max, primes)
primes = [2] if primes == nil
for i in (primes.last+1)..max
f = false
primes.each do |pn|
f = (f or (i % pn==0))
end
primes<<i if not f
end
p primes.last
return primes
end
def GetNumbersSum(n)
n = n.to_s.chars
sum = 0
n.each do |c|
sum += c.to_i()
end
return sum
end
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите число:');
var k:=ReadInteger('Введите величину сдвига десятичной точки:');
a:=a*10**k;
a.Println
end.
<u>Примеры</u>
Введите число: 12345.09876
Введите величину сдвига десятичной точки: -3
12.34509876
Введите число: 345.09876
Введите величину сдвига десятичной точки: 4
3450987.6
Введите число: 12345.09876
Введите величину сдвига десятичной точки: 8
1234509876000
Введите число: 12345.09876
Введите величину сдвига десятичной точки: 15
1.234509876E+19
Введите число: 1.23456789e-10
Введите величину сдвига десятичной точки: -25
1.23456789E-35
Упражнение 3
1. 1-2
2. 2-1
3. 3-3
Упражнение 4
1. 1-4
2. 3-1
3. 2-3
4. 4-2
Var n,m,max,min:integer;
Begin
write('Введите число n: ');readln(n);
max:=-10;min:=10;
While n<>0 do
Begin
m:=n mod 10;
if m>max then max:=m;
if m<min then min:=m;
n:=n div 10;
End;
writeln('Максимальная цифра числа: ',max);
writeln('Минимальная цифра числа: ',min);
End.
Pascal
var
a,s : integer;
begin
s := 0;
readln (a);
While a <> 0 do
begin
s := s +a;
readln (a);
end;
writeln (s);
end.