var a:real;
b:integer;
begin
readln(a);
b:=round(a*1000)mod 1000;
write(b div 100 + b mod 10 + b mod 100 div 10);
end.
125,34(10) = 1*10^2+2*10^1+5*10^0+3*10^(-1)+4*10^(-2)
выделенные цифры:
1 -число сотен
2 -число десятков
5 -число единиц
3 -число десятичных
4 -число сотых
Наибольшая площадь 25. Потому что всего ромашек 28, нам нужно, что бы они были в одном квадратике. из 28 корень не извлекается, следовательно ищем число меньше 28, из которого он извлечется. это число 25! 5 строчек, 5 столбцов)
Нельзя использовать в имени файла следующие символы из списка: *, ", /