Const n=10
var a:array [1..10] of integer;
i:byte; p:integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(495)+5;
p:=1
for i:=1 to 10 do
if (a[i] mod 3=0) or (a[i] mod 9=0) then p:=p*a[i];
writeln('Произведение =', p);
readln;
end.
(Блок-схему можно легко составить, исходя из программы)
<span>Были когда-то такие вот стихи: -Дальше будет нам видней: двадцать лет не двадцать дней! Этим всё сказано.</span>
Здравствуйте,могу ли я Вам чем-то помочь?
Добрый день,да,было бы неплохо!
Что вас интересует?
Вот эта кофта,какова ее стоимость?
О,к сожалению,это выставочный образец,товар в ближайшее время поступит в продажу.
Жаль,а вот эти брюки?
Они стоят 350 рублей.
Дайте мне пожалуйста 2 пары.
хорошо,пройдем к кассе.
Окей.
Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.