// 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 i,y,a,b: single;
begin
writeln('Выберите действие: 1)y=(a+b)^2; 2)y=a^2-b^2; 3)y=1/(a+b)');
read(i);
if i=1 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a+b)*(a+b));
end
else begin
if i=2 then begin
writeln('Введите a и b');
read(a,b);
write('y=',(a*a)-(b*b));
end
else begin
if i=3 then begin
writeln('Введите a и b');
read(a,b);
write('y=',1/(a+b));
end;
end;
end;
<span>end.</span>
Var
input, output : text;
A, B : integer;
begin
assign(input, 'input.txt'); //Ассоциируем переменные с файлами
assign(output, 'output.txt');
reset(input); //Открываем файл для чтения
rewrite(output); //Открываем файл для записи
readln(input, A);
readln(input, B);
writeln(output, A + B);
close(input); //Закрываем файлы
close(output);
end.
Var x,y,z,a:integer;
begin
read(x;y;z);
if y<z then a:=y else a:=z;
if x>a then write(x) else write (a);
writeln;
if y<x then a:=y else a:=x;
if a<x then write (a) else write (x);
end.
<span>& - амперсанд, логическое умножение. 1*1 = 1, 1*0=0
v - логическое сложение. 1+1 = 1, 1+0 = 0, 0+0 = 0
</span>((1 & 1)v 0) & (0v 1) = ((1 * 1) + 0) * (0 + 1) = 1
((0 & 0)v0) & (1 v 1) = <span>((0 * 0) +0) * (1 + 1) = 1</span>
