// PascalABC.NET 3.3, сборка 1549 от 17.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadSeqIntegerWhile(x->x<=100).ToArray; Writeln('Количество четных чисел равно ',a.Where(x->x.IsEven).Count); a.Transform(x->x.IsOdd?x*x:x); a.Println end.
Пример 35 24 38 83 110 Количество четных чисел равно 2 1225 24 38 6889
begin Writeln('S=',ReadSeqIntegerWhile(x->x>=0).Select(x->x mod 10).Sum) end.
Пример 16 24 19 21 45 0 23 -21 S=28
begin var n:=ReadInteger('n='); var St:=new Stack <integer>; while n>0 do begin St.Push(n mod 10); n:=n div 10 end; var a:=St.ToArray; a.Println(','); Writeln('Сумма цифр: ',a.Sum); Writeln('Сумма нечетных цифр: ',a.Where(x->x.IsOdd).Sum); Writeln('Сумма старшего и младшего разрядов: ',a.First+a.Last); end.
Пример n= 53214212 5,3,2,1,4,2,1,2 Сумма цифр: 20 Сумма нечетных цифр: 10 Сумма старшего и младшего разрядов: 7
function linelength(x1, y1, x2, y2: integer): real; begin linelength := sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;
procedure ger(a, b, c: real); var p: real; begin p := (a + b + c) / 2; sc := sqrt(p * (p - a) * (p - b) * (p - c)); end;
begin write('1:');readln(x1, y1); write('2:');readln(x2, y2); write('3:');readln(x3, y3); write('4:');readln(x4, y4); ger(linelength(x1, y1, x2, y2), linelength(x2, y2, x3, y3), linelength(x1, y1, x3, y3)); s := s + sc; ger(linelength(x1, y1, x4, y4), linelength(x4, y4, x3, y3), linelength(x1, y1, x3, y3)); s := s + sc; writeln(s); end. //3) var a, b, c: integer;
function sce(var a: integer): integer; var sc, c: integer; begin while a <> 0 do begin c := a mod 10; a := a div 10; sc := sc + c; end; sce := sc; end;
begin read(a, b, c); if (sce(a) > sce(b)) and (sce(a) > sce(c)) then writeln(a) else if (sce(b) > sce(a)) and (sce(b) > sce(c)) then writeln(b) else if (sce(c) > sce(a)) and (sce(c) > sce(b)) then writeln(c) else if (sce(c) = sce(a)) and (sce(a) = sce(b)) then writeln('Равны'); end.
i,a,b:Integer;
Begin
Read(a,b);
for i:=a to b do
begin
Write(i*i,' ');
end;
end.