Шапка левое меню контент и футер
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Println; // 1
SeqGen(n, i -> a[i] / Sqr(i + 1)).Sum.Println; // 2
a.Count(p -> (p mod 3 = 0) and (p mod 10 = 7)).Println; // 3
a.Where(p -> p.IsEven and (p > 0)).Sum(p -> Sqrt(p)).Println; // 4
// 5
var m := a.Min;
if m < 0 then
Println(m)
else
Println('Нет отрицательных чисел')
end.
Ответ:
var
a,b,c,n,s: integer;
begin
readln(n);
if ((n>99) and (n<1000)) then
begin
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
s:=a+b+c;
writeln('Сумма трех цифр равна ',s);
end else writeln('Введите трехзначное число!');
end.
Объяснение:
Вот программа, выводит примерно так, как на картинке.
Program p_1;
var
i, j : integer;
begin
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(i * j, ' ');
end;
end.