Uses crt;var R:real;beginwriteln('Введите радиус круга в основании: ');readln(R);writeln('Площадь основания цилиндра= ',2*pi*sqr(R));end.
Ну я не могу сказать правильно, но вот как я решила:
20*30=600 (к)
30*2=60 (к)
600+60=660(к)
Ответ : 660 мест в зале.
Я не знаю правильно ли нет.. Спроси у родителей, на всякий случай!
Конец
Перед первым выполнением цикла необходимо задать начальное значение «Сумма» = 0 и затем nраз вычислять «Сумма» при различных значениях Xi<span> и Y</span>i, где i принимает последовательно значения 1,. . ., n и используется цикл с постусловием. В схеме алгоритма заменим слово «сумма» буквой S.
Вычислить факториал М! = 1х2хЗх (М - 1)х М
<span>Факториал вычисляется как произведение от 1 до М, аналогично предыдущему вычислению суммы. Начальное значение переменной «ФАКТ»=1, если это значение задать равным нулю, то и результат будет нулевым.</span>
Первая задача
var a,b,x,y,z:
real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= (x+y-z)/(x*x+2);
write ('a=');
write (a:1:2); end.
Вторая
var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= 5*((2*x-z)/(3+y*y));
write ('a=');
write (a:1:2);
end.
1) 50 * 2 байта = 100 байт - длина в кодировке <span>Unicode
2) 8 бит = 1 байт
50 * 1 байт = 50 байт длина сообщения в кодировке КОИ-8
3) 100 - 50 = 50 байт - на столько уменьшилась длина сообщения</span>