// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
function SodGood(n:integer):boolean;
// Попадает ли сумма цифр числа n в диапазон [20;30]?
begin
var s:=0;
while n>0 do begin
s+=(n mod 10);
n:=n div 10
end;
Result:=(s>=20) and (s<=30)
end;
begin
Print(Range(10000,99999).Where(n->SodGood(n)).Average)
end.
<u><em>Результат:</em></u>
57982.8943738243
Форматом и типом файла. рисунок измеряется а пикселях а текст количеством символов
Элт. монитор
Электронно-лучевые приборы — класс электровакуумных электронных приборов, предназначенных для преобразований информации, представленной в форме электрических или световых сигналов. В приборах используются сфокусированные потоки электронов, управляемые по интенсивности и положению в пространстве.
Var
x:integer;
begin
for x:=-5 to 5 do Writeln(x:2,x*x+5:4)
end.
<u>Результат</u>
-5 30
-4 21
-3 14
-2 9
-1 6
0 5
1 6
2 9
3 14
4 21
5 30
Var
a, b: integer;
function greatest_common_divisor(m, n: integer): integer;
var
modulo: integer;
begin
modulo := m mod n;
if modulo = 0 then
greatest_common_divisor := n
else
greatest_common_divisor := greatest_common_divisor(n, modulo)
end;
procedure reduce_the_fraction(a, b: integer);
var
gcd: integer;
sign: string;
begin
gcd := greatest_common_divisor(a, b);
if a * b < 0 then
sign := '-';
writeln(sign, abs(a) / gcd, '/', abs(b) / gcd);
end;
begin
write('Enter two numbers: ');
readln(a, b);
reduce_the_fraction(a, b);
end.
