PascalABC.NET:
<em>program colors;</em>
<em>begin</em>
<em>writeln('черный');</em>
<em>writeln('коричневый');</em>
<em>writeln('красный');</em>
<em>writeln('жёлтый');</em>
<em>end.</em>
Примечание:
write('some_text%') - написать some_text%
writeln('some_text%') - написать some_text% и перейти на следующую строку
<h2>Ответ:</h2>
То что выделено синим означает, что вы не поставили ' '.Это так потому что программа составлена правильно.K-это курс, он вводится.Поэтому делается именно так, происходит подсчёт.
Я уже делал у меня правильно.
Копия своего же ответа не запрещена.
Program tovar;
Var s, n, c: integer;
begin
Write ('Сколько единиц товара закупили?');
Read (n);
Write ('Какова цена товара?');
Read (c);
s:=c*n;
Write ('Стоимость общей партии товара равна', s, 'руб.');
end.
Проще всего складывать в столбик как обычные десятичные числа, но если в сумме число получится больше 8 (система восмиричная), то мы отнимаем 8, смотрим: меньше ли получившийся остаток 8, если нет, то снова отнимаем восемь и тогда записываем остаток, а в "ум" запишем число отнятых восьмерок
574+467=1263 (все числа в восьмиричной системе счисления)
так, складывая 4 и 7, получаем 11, что больше 8, поэтому отняв 8, получим цифру 3, которую и записываем как последнюю цифру числа (3 пишем, 1 в уме), далее складываем 6 и 7 и не забываем про 1, потому что в прошлый раз мы отняли всего одну восьмерку, получаем 14, но записываем только 6, а 1 в уме, затем 5, 4 и 1 - 2 пишем, 1 в уме, далее просто приписываем единицу, получаем 1263
P.S. несмотря на то, что кажется сложно, это немногим отличается от десятичной системы сложения в столбик
Переведем все числа в степени 8.
Ответ: 3 единицы.