я не помню паскаль:(
Объяснение:
вводишь число a
через if проверяешь условие
if(a>7) то a:=a*10
else if (a<7) то а:=а+7
Если для 1.5л необходимо 30 грамм, значит для 1л. необходимо 20 грамм.
В программе будет умножать на 20.
var v, w: real; //Объявление двух переменных
begin //Начало
write('Литры чая = '); //Вывод сообщения
readln(v); //Ввод количества желаемых литров
w := v * 20; //Расчет количества сухого
writeln('Для ', v, ' л. чая, необходимо ', w, ' г сухого чая'); //Вывод результата
end. //Конец
1. <span>var N, k: real; </span>
<span>begin </span>
<span>readln(N); </span>
<span>if (N<0) then k:= 0 </span>
<span>else </span>
<span>begin </span>
<span>if (frac(N)=0) then k:=N*2 </span>
<span>else k:=(trunc(N)+1)*2; </span>
<span>end; </span>
<span>writeln(k); </span>
<span>end.
2. </span><span>Первый хулиган увеличивал количество кусочков на 3
Второй - на 6
То есть, всего кусочков должно быть N = 1 + 3m + 6n
Значит, N - 1 должно делиться на 3
и наоборот, если N - 1 делится на 3
N - 1 = 3k
то возможна ситуация, когда Первый хулиган рвал k раз,
а Второй наблюдал (ничего не рвал).
Алгоритм свёлся к проверке:
Если N -1 не делится на 3, то No
КОНЕЦ</span>
Переменная у не изменяется. Следовательно, у=5
В результате суммы переменная х увеличилась на 5. х=3-5, х=-2