Паскаль не начинается с цифры, так что 4А
<span>"Логика. Основы алгоритмизации"
1. Рядом со школой растут 6 деревьев: сосна, береза, липа, тополь, ель и клен. Известно, что береза ниже тополя, а липа выше клена, сосна ниже ели, липа ниже березы, сосна выше тополя. Перечислить деревья в порядке возрастания их высоты.
</span>
Налить в 3л и из 3л перелить в 5л
Опять налить в 3л и перелить в 5л. (в 3л останется 1л)
Вылить из 8л
Перелить из 3л в 8л
Перелить из 5л в 3л
Перелить из 3л в 8л
Если поочередно, то это временное разделение
var sum,n:int64;
begin
write('Vvedite chislo: ');
readln(n);
while(n>0) do begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln(sum);
readln;
end.