Program z1;
var a, b:integer;
begin
write(' Введите возраст Саши - '); read(a);
write(' Введите возраст Mаши - '); read(b);
if a>b then writeln(' Саша старше Маши на ',a-b,' лет');
if a<b then writeln(' Маша старше Саши на ',b-a,' лет');
<span>end.</span>
В переменной day определяется номер последнего элемента массива Dat, который равен первому элементу ⇒ значение переменной day после выполнения цикла = 2
Если для 1.5л необходимо 30 грамм, значит для 1л. необходимо 20 грамм.
В программе будет умножать на 20.
var v, w: real; //Объявление двух переменных
begin //Начало
write('Литры чая = '); //Вывод сообщения
readln(v); //Ввод количества желаемых литров
w := v * 20; //Расчет количества сухого
writeln('Для ', v, ' л. чая, необходимо ', w, ' г сухого чая'); //Вывод результата
end. //Конец
Var a: ineger;
begin
write('Введите возраст: ');
read(a);
if a>=18 then writeln('Это ребенок');
else writeln('Это взрослый');
end.