Var
a,b,c,d:integer;
begin
writeln('Введите трехзначное число: ');readln(a);
b:= a div 100;
c:= a mod 100 div 10;
d:= a mod 10;
if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)
then writeln('yes')
else writeln('no');
end.
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=1 to n div 2 do write(a[i]:4, a[n-i+1]:4);
writeln;
end.
Пример:
<span>Массив A:
12 44 36 9 1 13 10 11 37 30
12 30 44 37 36 11 9 10 1 13</span>
Задачу удобно решать с помощью кругов Эйлера (см. прилагаемый файл).
К1+К2+К3 = 15000
К2 = 8000
К2+К3 = 12000
К1 = 15000-12000 = 3000
К1+К2 = 3000+8000 = 11000
Ответ: 11000
Выведет 0. s=0. n=4. сразу выполнется условие (n>2) и программа выведет s тоесть 0
Var n,k,m: integer;
<span>begin
</span><span> write('n = '); readln(n);
</span><span> k:=n; m:=1;
</span><span> while k>0 do
</span><span> begin
</span><span> k:=k div 10;
</span><span> m:=m*10;
</span><span> end;
</span><span> k:=2*m*10+n*10+2;
</span><span> writeln(k);
</span><span>end.
</span>n = 78954
<span>2789542
</span>
<span>
</span>