var a,b,n:real;
begin
writeln('vvedite chislo');
readln(a);
b=1;
n=b;
while b<a do
begin
if (a mod b = 0) then n:=n*b;
b:=b+2;
end;
writeln('n = ',n);
readln;
end.
Var A:integer;
Begin
Write('A = ');Read(A);
if A>50 then A:=(A div 10)+(A mod 10)
else A:=(A div 10)*(A mod 10);
Write(A);
End.
Если посмотреть: можно видеть что ПРИ Н - Т и рядом стоит катер тоемть выходит слово ПРИНТЕР: правильный ответ 1)
#include <iostream>
#include <cmath>
int main()
{
double
x = 2.444,
y = 0.00869,
z = -130;
std::cout << "x = " << x << std::endl <<
"y = " << y << std::endl <<
"z = " << z << std::endl;
double h = ((pow(x, y+1) + exp(y-1)) / (1 + x * abs(y - tan(z)))) * (1 + abs(y - x)) +
(pow(abs(y - x), 2) / 2) - (pow(abs(y - x), 3) / 3);
std::cout << "h = " << h << std::endl;
return 0;
}
Может быть reset?это сброс .но 5 букв...