Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, n : integer;
a, s : real;
b : array [1..20] of real;
begin
writeln('введите число а=');
readln(a);
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива b: ');
for i: =1 to n do
readln(b[i]);
writeln('исходный массив b: ');
writeln(b[i]);
s: =0;
if b[i] > a then s: =s+b[i];
writeln('сумма элементов =', s);
readln
end.
если есть д ш и в то это не куб а параллелипипед
var
a,b,c,r: real;
readln(a,b,c,r);
if (2*r< a) and (2*r< b) and (2*r< c)
then writeln('поместится')
else writeln ('не поместится');
для куба достаточно одного условия (2*r< a)
program xxx; var a, b, min : integer; begin write('введите число а=');
min: =10; while a < > 0 do begin b: = a mod 10; if b < min then min: =b; a: = a div 10 end; writeln('минимальная цифра = ', min); readlnend.
s : = 0
for i : = 1 to n do
if i mod 2 = 1 then
s : = s - 1/2/n
else
s : = s + 1/2/n;
Популярные вопросы