Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
s : = 1 ;
for i : = 1 to n do
if a[i] mod 3 = 0 then
s : = s * a[i];
writeln(s);
var a: array [1..10] of integer;
i,k: integer;
begin
read(a);
k: =1;
for i : = 1 to 10 do
if a[k]> a[i] then k: =i;
end;
if k mod 2 = 0 then writeln(k," - chetnoe")
else writeln(k," - ne chetnoe");
end.
var x,y: real;
read(x);
if x< =10 then y: = 210
else y: = x*x*x;
writeln(y);
зеркало, весло, начало, одеяло, масло, крыло, дупло
Популярные вопросы