var
i, s: integer;
begin
s:= 0;
for i:= 50 to 100 do
if (i mod 2 = 0) and (i mod 3 = 0) then s:= s + i;
writeln(s);
readln;
end.
Преобразуем по схеме Горнера, избавляясь от вычисления степени х.
y = 5x²+7x-30 = -30+x(7+5x))
<u>// PascalABC.NET 3.2, сборка 1488 от 21.06.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
Writeln('Y=',-30+x*(7+5*x))
end.
Var a,b:real:
begin
read(a);
b:=a*0.91;
writeln();
write(&a,'m=',&b,'yards');
end.
Program prog;
Uses crt;
var m: integer;
label l1;
Begin clrscr;
l1: write('Введите номер месяца = ');
readln(m);
case m of 1,3,5,7,8,10,12: writeln('31');
4,6,9,11: writeln('30');
2: writeln('28/29');
else
begin
writeln('Непривильный номер месяца');
writeln;
goto l1;
end;
end;
readln;
End.
<em>/ PascalABC.NET 3.2, сборка 1385 от 14.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('Поквартирная численность жильцов');
var a:=ArrRandom(36,1,10); a.Println;
var mx:=a.Max;
Write('Квартиры с максимальным количеством жильцов: ');
a.Select((x,i)->(x,i)).Where(x->x[0]=mx).Select(x->x[1]+1).Println
end.
<u>Пример</u>
Поквартирная численность жильцов
7 9 6 7 8 9 1 4 7 8 8 8 1 7 7 8 3 10 7 7 2 9 7 3 2 8 2 2 10 4 4 5 2 1 7 1
Квартиры с максимальным количеством жильцов: 18 29