Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
3*3: (3*3)=1
(3*3-3): 3=2
3*3-(3+3)=3
(3*3+3): 3=4
(3+3): 3+3=5
(3+3-3)+3=6
(3: 3+3)+3=7
3*3-(3: 3)=8
3*3-(3-3)=9
3*3+3: 3=10
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.
это вообщето
v= v1+v2
t=(v1*t1+v2*t2)/v
var n,s: integer;
read(n);
while n> 0 do begin
s: =s+n mod 10;
n: =n div 10;
writeln(s);
Популярные вопросы