Var n,a,b,c:integer; begin read(n); a:=n div 100; b:=n div 10 mod 10; c:=n mod 10; if (a=4) or (b=4) or (c=4) then writeln('в числе есть цифра 4'); if (a=7) or (b=7) or (c=7) then writeln('в числе есть цифра 7'); end.
var a: array[1..n] of real; i, j: integer; min, max: real; sum, product, harmonic: real;
begin {ввод массива} writeln('Данные массива:'); for i := 1 to n do begin a[i] := random(40) - 20; write(a[i], ' '); end; writeln();
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do sum := sum + a[i]; writeln('average = ', sum / n);
{минимум и максимум} min := a[1]; for i := 1 to n do if min > a[i] then min := a[i]; writeln('min = ', min);
{подсчет суммы и произведения и агригатов} sum := 0; for i := 1 to n do if i mod 2 = 0 then {если нужен фильтр} sum := sum + a[i]; writeln('sum = ', sum); end.
begin
read(n);
a:=n div 100;
b:=n div 10 mod 10;
c:=n mod 10;
if (a=4) or (b=4) or (c=4) then writeln('в числе есть цифра 4');
if (a=7) or (b=7) or (c=7) then writeln('в числе есть цифра 7');
end.