Var A:integer;
Begin
WriteLn('Введите четырёхзначное число');
ReadLn(A);
WriteLn('S = ',(A div 1000)+(A mod 10));
WriteLn('P = ',((A div 100) mod 10)*((A div 10) mod 10));
End.
Минимально и нужно , интересно где еще такое задают
//Z(x)=cos(2x)sin(x),если переменная х меняется в интервале [-5;5] с шагом hx=0.345
PROGRAM B07;
CONST
min=-5;
max=5;
hx=0.345;
VAR
x,z,k:real;
BEGIN
x:=min;
while (x<=max) do begin
writeln ('x=', x:6:3, ' ', cos(2*x)*sin(x), ' ' );
x:=x+hx;
end;
END.
#include <iostream>
using namespace std;
void main()
{
setlocale(NULL, "russian");
int n,
summa = 0;
cout << "Введите количество чисел " << endl;
cin >> n;
for (int i = 0, temp; i < n; i++){
cout << "Введите " << i + 1 << " элемент" << endl;
cin >> temp;
summa += temp;
}
cout << "Сумма " << n << " элементов равна: " << summa << endl;
system("pause");
};