Задача на языке Pascal.
В баке n литров солярки. Объём канистры 20 литров. Сколько таких канистр можно слить из бака?

Предыдущий
вопрос Следующий
вопрос

Uses Crt;

var n:integer;

Begin

Clrscr;

Write('Сколько литров солярки в баке? >');

Readln(n);

Writeln('Объем канистры 20 литров, значит из бака можно слить:');

Writeln(n div 20, ' полных канистр(ы)');

writeln('или точно ', n/20:2:2, ' канистры');

readln;

end.