Ответ:
program vasa228;
var x,y,z,a:int64;
begin
readln(x,y,z);
a:=0;
while round((2*x+3*y+4*z+a*5)/(x+y+z+a))<4 do a:=a+1;
write(a);
end.
Объяснение:
Var chisl:array [1..5]of integer;
i,max:integer;
begin
for i:=1 to 5 do begin
Write(i,'-число='); Readln(chisl[i]); end;
max:=0;
for i:=1 to 5 do begin
if chisl[i]>max then max:=chisl[i]; end;
writeln'max chislo=',max);
end.
АХ^A = БАХ
Очевидно, что А не равно 1, так как AX^1 = AX.
A также не может быть >=3, так как даже при возведении минимального двузначного числа в 3 степень получится четырехзначное число (10^3 =1000).
Следовательно, A=2
Так как в числах AX и БАХ последние цифры совпадают, то Х может быть 1, 5 или 6.
21^2 = 441 - не подходит
25^2 = 625 - подходит
26^2 = 676 - не подходит
Ответ: 25^2 = 625
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString(' >');
Write('-> ');
var n:=s.Length;
if n<4 then Writeln(s)
else
while true do begin
var p:=n mod 3; p:=p=0?3:p;
Write(s[:p+1],',');
s:=s[p+1:];
n:=s.Length;
if n=3 then begin Writeln(s); Exit end
end
end.
<u>Примеры</u>
> 1231423454123112313211
-> 1,231,423,454,123,112,313,211
> 123456
-> 123,456
> 13
-> 13