Program pro;
var k,a,sym:integer;
begin
readln(k);
while k>0 do
begin
a:=k mod 10;
sym:=sym+a;
k:=k div 10;
end;
writeln('Сумма разрядов четырехзначного числа равна ',sym)
end.
Ответ:
нельзя однозначно определить
Объяснение:
Площадь прямоугольного треугольника равна половине произведения его катетов. Получаем уравнение:
0.5kd = 12(k+d)
kd = 24k + 24d
k = 24d / (d - 24)
Очевидно, что при d > 24 могут быть получены k, для которых высказывание будет истинным. Также, наборы k и d, не удовлетворяющие полученному решению, делают высказывание ложным.
var i: integer;
n1,n2: integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i);
end
end;
end.
Uses crt;
var k,l,s,u:integer;
begin
write ('k=');read (k);
s:=k/100;
l:=s*2;
u:=k+truck (l);
write (u);
end.
Program prim;
uses crt;
var
y,x,a,modul,koren,kvad:real;
begin
writeln('Решаем пример:');
kvad:=sqr(x);
koren:=sqrt(x*a);
modul:=abs(a);
y:=(kvad-koren)/modul;
writeln(y);
<span>end.</span>