Var i,n,s: integer;beginn:=10;while i < n+1 dobegins:= s + i;writeln(i,s:4);i:= i +1;end;end.
Логика такая:
1) Число 157 - это суммы 15 и 7 в порядке убывания, т.к. 1 и 57 не подойдут в виду условий задачи.
2) Пусть наименьшее число abc, тогда желательно b+c = 15, а a+b = 7.
Подберем: чтобы цифра b в нашем числе было наименьшей, цифра c должна взять на себя наибольшее значение -> 9. Тогда b = 6.
Итого: a69.
a будет 1, т.к. 1+6 = 7.
Таким числом является 169.
Проверим: 1+6 = 7. 6+9 = 15. В порядке убывания получается 157.
Program odin;
var a,b,c,d:integer;
x,y:integer;
begin
readln(a,b,c,d);
x:=a+b+c+d;
y:=a*b*c*d;
writeln('сумма чисел = ', x);
writeln('произведение чисел = ', y);
end.
// ------------------------------------------
program dva;
const p=3.14;
var r:integer;
s:real;
begin
writeln('Введите радиус ');
readln(r);
s:= pi * r * r;
writeln('Площадь круга = ', s);
end.
У обуви подошва у растения корень с растением можно ухаживать полевать измерять длинну