begin Write('Введите натуральное четырехзначное число: '); Readln(n); if (n > 9999) or (n < 1000) then Writeln('Число должно быть четырехзначным') else begin a := n div 1000; d := n mod 10; n := (n div 10) mod 100; b := n div 10; c := n mod 10; s := a + b + c + d; p := a * b * c * d; Writeln('Сумма цифр равна ', s, ', а их произведение равно ', p) end end.
Тестовое решение: Введите натуральное четырехзначное число: 2345 Сумма цифр равна 14, а их произведение равно 120
Var a, k, b, D, X, X1, X2 : real; begin writeln ('введите коэффициенты уравнения (a, k, b) '); readln(a,k,b); if a=0 then if k=0 then if b=0 then writeln('X - любое число') else writeln('корней нет! ') else begin X:=-b/k; writeln('X=',X:8:3); End else begin D:=k*k-4*a*b; if D<0 then writeln ('Корней нет! ') else begin X1:=(-k+sqrt(D))/2/a; X2:=(-k-sqrt(D))/2/a; writeln ('X1=', X1:8:3, ' X2=',X2:8:3); end; end; end.
n, a, b, c, d, s, p: integer;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
if (n > 9999) or (n < 1000) then Writeln('Число должно быть четырехзначным')
else begin
a := n div 1000; d := n mod 10; n := (n div 10) mod 100;
b := n div 10; c := n mod 10;
s := a + b + c + d;
p := a * b * c * d;
Writeln('Сумма цифр равна ', s, ', а их произведение равно ', p)
end
end.
Тестовое решение:
Введите натуральное четырехзначное число: 2345
Сумма цифр равна 14, а их произведение равно 120