Jul 07
Решаем небольшую задачку

Допустим нам необходимо написать код программы, чтобы над исходным(writeln(s, '25')) числом была возможность исполнять определенные действия?..
Сначало никак не мог решить:
var a,s,k:integer;
begin
write('введите число');
readln(a);
if a mod 10=5 then begin
k:=a div 10;
s:=k*(k+1);
end;
writeln(s, '25'):
end.
Вариант решения задачи пришел достаточно спонтанно:
var a,s,k,r:integer;
begin
write('введите число');
readln(a);
if a mod 10=5 then begin
k:=a div 10;
s:=k*(k+1);
end;
r:=(s*100)+25;
writeln(r);
end.