Исправленная:
VAR P:integer;
begin
write('введите пароль');
read (P);
if p=1998 then write ('Молодец') else write ('Пароль не верен');
end.
Для того, чтобы сделать фоновый цвет, то нужно выбрать необходимый цвет и выбрать заливку
<span>Я НЕ ОЧЕНЬ ПОНЯЛА ВОПРОС поэтому на 100% в ответе не уверена </span>
<span>В условии задачи подразумевается, что цены выражаются целым числом рублей. Число ложек, цена которых 200 рублей, равное числу вилок, цена которых 176 рублей, должно быть делителем 200 и 176. Таких чисел три – 2, 4. И 8. Поэтому цена одной ложки равна либо 100 рублей, либо 50 рублей, либо 25 рублей. Условию задачи удовлетворяет последняя цена – 25 рублей. Следовательно, 5 ложек стоят 125 рублей. </span>
Program One;
var
a, b, c: real;
count : byte;
begin
readln (a, b, c);
count := 0;<span>
if a < 0 then inc (count);</span>
if b < 0 then inc (count);
if c < 0 then inc (count);
wrireln (count);
<span>end.
Надеюсь на лучший ответ:)</span>
В прошлом году у меня было похожее задание - 15,8,6
