Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
мы встречаем их в жизне довольно часто. на информатике мы чертим блок-схемы, на - графики, после проведенного опроса мы составляем диаграммы, из которых делаем выводы..
var
i,n,a: integer;
begin
readln(n);
for i: =1 to n do
read(a);
if (a mod 3=0)and(a mod 5> 0) then write(a,' ');
end;
writeln;
end.
a,m,n,k: real;
readln(m,n,k);
if (m+n+k)< (m*n*k) then
a: =m+n+k
else
a: =m*n*k;
writeln(a);
Популярные вопросы