Fortif-типо токого,как то так
Наталья199717, немного не верно...
1)25-5=20
2)20+18=38
3)38-20=18!!!А вообще можно только логмчески решить...т.к. в шашки только 18 играть умеют,то следовательно И В ШАШКИ И В ШАХМАТЫ может играть только 18 человек,никак не 19!
Program n1;
var a,b,c,d: integer;
begin
readln(a,b,c,d);
if a>0 then a:=a*a
else a:=a*a*a*a;
if b>0 then b:=b*b
else b:=b*b*b*b;
if c>0 then c:=c*c
else c:=c*c*c*c;
if d>0 then d:=d*d
else d:=d*d*d*d;
writeln(a,' ',b,' ',c,' ',d);
end.
Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
Для решения задачи необходимо наибольшее из значений x, для которых выполняются условия:
x^2 <= 69 и x^3 > 69
x=7: 7^2 = 49; 7^3 = 343
x=8: 8^2 = 64; 8^3 = 512
x=9: 9^2 = 81
Ответ: x=8