Var a:string;i,s:integer;
begin
read (a);
for i:=1 to length(s) do
begin
s:=s+i;
write (s);
end;
end.
Ответ:
Хороший вопрос. Ответить я, конечно же, на него не смогу
Объяснение:
42
.................................................
Вот тебе решение, на уравнения не знаю
Program chisla;
var a:integer;
begin
writeln('Введите четырехзначное число ');
readln(a);
if (a>=1000) and (a<=9999) then
begin
a:=(a div 1000)+((a div 100) mod 10)+((a div 10) mod 10)+(a mod 10);
writeln('Сумма цифр этого числа: ',a);
end
else writeln('Это не четырехзначное число');
end.