Var
i, sum: longint;
begin
for i := 1 to 100 do sum := sum + sqr(i);
write(sum);
end.
<span>Слова среднего рода, не склоняютьс, имеют единственное счисление.</span>
{В данном случае не имеет смысла возиться с числами, куда лучше подходят строки}
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
begin
readln(s);
c:=s[length(s)-1]+s[length(s)];
delete(s,length(s)-1,2);
writeln(s,' руб. ',c,' коп.');
end.
Пример ввода:
8705553535
Пример вывода:
87055535 руб. 35 коп.
Деревья и Цветы распускаются в разное время.Это зависит от того когда весна придет.То есть получается то что деревья и цветы могут распустится и в Апреле,и в Мае,и даже иногда в Марте.