Кол-во символо = 82(с пробелами)
Размер = 82*32 = 2624
переведём в байты = 2624/8 = 336 байт ответ(2)
Если для 1.5л необходимо 30 грамм, значит для 1л. необходимо 20 грамм.
В программе будет умножать на 20.
var v, w: real; //Объявление двух переменных
begin //Начало
write('Литры чая = '); //Вывод сообщения
readln(v); //Ввод количества желаемых литров
w := v * 20; //Расчет количества сухого
writeln('Для ', v, ' л. чая, необходимо ', w, ' г сухого чая'); //Вывод результата
end. //Конец
Ну простое высказивание так називаеться потому что <span>оно не включает других высказываний в качестве своих частей.
А сложное так называеться если оно </span><span>получено с помощью логических связок из других более простых высказываний.
Тоисть в них различие в том что сложное складаеться из других простых висказиваний.</span>
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=70;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество нулей на нечетных местах: ',
Range(0,n-1,2).Select(i->a[i]).Where(t->t=0).Count)
end.
<u>Пример</u>
0 2 1 2 2 0 2 1 2 2 2 2 1 1 2 2 2 2 1 2 2 2 0 2 0 0 2 0 2 0 0 2 2 0 2 1 1 0 0 2 0 2 0 1 2 2 0 2 0 0 2 0 2 1 1 0 2 1 2 1 0 2 1 2 1 0 0 1 2 1
Количество нулей на нечетных местах: 11
- - - - - - - - - -
begin
var n:=35;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество единиц на четных местах: ',
Range(1,n-1,2).Select(i->a[i]).Where(t->t=1).Count)
end.
<u>Пример</u>
1 2 0 0 1 1 2 1 1 1 0 2 1 2 2 1 1 1 0 1 0 0 2 2 2 1 2 1 2 2 1 2 0 1 1
Количество единиц на четных местах: 9
______________________________