Числа вводятся с клавиатуры? Или просто вывести сумму ? В паскале не очень, я больше в с++; напишу логику, под синтаксис подгонишь.
Если просто 2+3, тогда:
a=3;
b=2;
c=a+b;
" тут надо вывести на экран с "
Program s;
uses crt;
var
V,R:real;
begin
writeln('Введите радиус: ');
read(R);
V:=(4/3)*pi*(sqr(R)*R);
writeln('Объем равен: ',V:2:2);
end.
<em>program s;</em>
<em>uses crt;</em>
<em>var</em>
<em>x,y,z,x1,y1,z1,r:real;</em>
<em>begin</em>
<em>writeln('Введите цену сахара: ');</em>
<em>read(x);</em>
<em>writeln('Количество купленного сахара (кг): ');</em>
<em>read(x1);</em>
<em>writeln('Введите цену муки: ');</em>
<em>read(y);</em>
<em>writeln('Количество купленной муки: ');</em>
<em>read(y1);</em>
<em>writeln('Введиет цену риса: ');</em>
<em>read(z);</em>
<em>writeln('Количество купленного риса: ');</em>
<em>read(z1);</em>
<em>r:=(x*x1)+(y*y1)+(z*z1);</em>
<em>writeln('Стоимость покупки ',r);</em>
<em>end.</em>
Слова "Кабачок" и "Морковь" сами по себе имеют одинаковое количество букв, когда мы их уберем из текста, то пропадут 14 букв + 2 пробела и 2 запятые, затем посчитаем сколько в тексте символов, а их 67.
Каждый символ весит по 2 байта, значит информационный объём всего текста равен 67 * 2 = 134 Байта
134 - 18 * 2 = 98 Байт
Ответ: 98 Байт информационный объём исходного текста.
Если p, то q:
Если мне нравятся уроки информатики, то мне нравятся уроки истории тоже.
