Так?
//Pascal
var
a, h, x, y: real;
begin
write('a = ');
readln(a);
write('h(шаг) = ');
readln(h);
writeln('x':5,'y':8);
x := -3;
while x <= 4 do
begin
y := a * (x * x * x);
writeln(x:7:2, y:10:2);
x := x + h;
end;
end.
Исходное число: 103
3*(100х+10у+3)+1=300+10х+у
290+29у=290
10х+у=10
так как числа у нас целые, то х=1, у=0.
Подставляем в формулу исходного числа:
100х+10у+3=100+0+3=103.
---
проверка:
103*3+1=309+1=310
103 ->310 (перестановка цифры 3 начало)
310=310 - верно.
--
Максимальное количество 135 символов,они идут по порядку.
Procedure p(k:integer);
var i:integer;
begin
for i:=1 to 20-4*k do write(k);
writeln
if k<4 then
begin
p(k+1);
for i:=1 to 20-4*k do write(k);
writeln;
end;
end;
begin
p(1);
end.
Результат:
1111111111111111
222222222222
33333333
4444
33333333
222222222222
1111111111111111
Ответ:
А где сочинение? Прикрепи