Const mile = 7;
const verst = 500;
const saj = 3;
const arsh = 28;
const dm = 25.4;
const mm = 1000000;
var x, km: real;
begin
write('Введите число для перевода из миль в километры: ');r
eadln(x);
km := ( x * mile * verst * arsh * saj * dm ) / mm;
writeln(x, ' -> ', km);
<span>end.</span>
Хмм... Про кодировку ни слова, так что, надеюсь, это не Unicode.
На один символ обычно в таких задачах отводится 1 байт.
значит 80 символов = 80 байт.
в 30 строках 30* 80 байт = 2400 байт.
на каждой странице по 30 строк, а страниц 6, значит 6 * 2400 байт = 14 400 байт
На одну чашу весов поместим две монеты, на другую – монету и гирю. Если весы уравновесятся, то фальшивая монета та, что осталась. За второе взвешивание определим, легче она или тяжелее любой из настоящих монет (или гири). Если же весы не уравновесятся, то наверняка можно утверждать, что настоящей является отложенная монета. Предположим, что перевесила чаша, на которой находятся две монеты. Сравним эти монеты при втором взвешивании. Если весы уравновесятся, то фальшивая монета легче, и она находится рядом с гирей. В противном случае фальшивой окажется более тяжелая из двух сравниваемых монет.
Program kids;
var m,j,Summa:<em>integer</em>;
begin
writeln('На сколько мальчиков больше ?'); readln(m);
j:=15;
Summa:=j+(m+j);
writeln('В нашем классе ',Summa,' человек.');
readln;
end.
________
j - это сумма девочек, а m+j - это сумма мальчиков.
Амам-мама апап-папа околбя-яблоко и т.д.