Uses crt; var a: real; [тип real присваиваем для того, чтобы число можно было делить] begin readln(a); [вводим с клавиатуры число] writeln(a, ' м = ', а/1000, 'км.'); [программа сначала выводит данное ранее число, затем сразу делит его на 1000 и показывает результат] end.
Спасибо
Ответ дал: Гость
что красного цвета в корзине нет, что одним шаром стало меньше, что в корзине стало больше места, да тут можно писать и писать! - включи воображение!
Ответ дал: Гость
var
s: string;
z,z1,i: integer;
begin
readln(s);
z: =0;
z1: =0;
for i: =1 to length(s) do
begin
if s[i]='м' then inc(z);
if s[i]='н' then inc(z1);
end;
if z> z1 then writeln('больше букв м');
if z< z1 then writeln('больше букв н');
if z=z1 then writeln('букв м и н равное количество');
Популярные вопросы