procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.
Привет!
Тематика это: Тема о которой идёт речь, допустим говорят два повара, они говорят о еде, тематика: готовка еды
А в свою же очередь аудитория это те люди которые слушают, допустим есть ТВ канал, у него есть аудитория ( например 5 миллионов человек ). Аудитория делится на группы:
0+ Все
6+ От 6 лет
12+ От 12 лет
16+ От 16 лет
18+ От 18 лет
Так же, в соответствии с законом РФ, указывать рекомендованный возраст, это называют так:
0+ Для всех
6+ Для детей
12+ Для подростков
16+ Для тех кому исполнилось 16 лет ( Или же см. обозначение 12+ )
18+ Запрещено для детей
<html>
<body>
<script type="text/javascript">
a = prompt("Введите первое число");
b = prompt("Введите второе число");
c=a*b;
alert("Произведение чисел: "+c);
</script>
</body>
<span></html></span>
Var s:string;
i:integer;
begin
readln(s);
write(s[1] + s[3] + s[2]);
end;
Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin
write('Введите радиус = ');
readln(radius);
write('Введите высоту = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);
ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;
writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);
end.
