Дима: жанглирует в цирке у него как минимум 3 выступления в 1 программе
Жанна:дрисеровщица выступает 4-5 раз выступления в 1 программе
Петр: Клоун выступает 7-9 раз за 1 программу
Истинное суждение-мой компьютер персональный
ложное суждение-мой клмпьютер летит
Var a,b:real;
begin
read (a,b);
writeln (sqrt(a+sqrt(b+sqr(a+b))));
end.
Const n=5;
var k,l,m:array[1..n] of integer;
i,p1,p2:integer;
begin
for i:=1 to n do
read(k[i]); {задаем массив с n=5 елементов}
for i:=1 to n do
if (k[i] mod 2=0) then {Проверяем четное число или нет}
begin
inc(p1); {Если да , то 'кидаем' елемент в массив L}
l[p1]:=k[i];
end
else
begin
inc(p2); {Если нет , то 'кидаем' елемент в массив M}
m[p2]:=k[i];
end;
writeln; {Вывод}
write('Четные:');
for i:=1 to p1 do
write(l[i],' ');
writeln;
write('Нечетные');
for i:=1 to p2 do
write(m[i],' ');
end.
<span> </span>
<span>
Задача 3.
Покупатель решил потратить в магазине М тенге без остатка. Ему
необходимо приобрести три вида продукции, стоимость которых составляет
X,
Y и
Z тенге
соответственно. Вывести все возможные комбинации покупок. </span>
<span>var k,i,n,e:longint;<span>
</span>f,f1:text;<span>
</span>begin<span>
</span>assign(f,'input.in');<span>
</span>assign(f1,'output.out');<span>
</span>reset(f);<span>
</span>read(f,k,n);<span>
</span>close(f);<span>
</span>rewrite(f1);<span>
</span>if k=31 then writeln('0') else<span>
</span>for i:=k to 31 do<span>
</span>if (i=k+1) then e:=1 else<span>
</span>e:=e+e*2;<span>
</span>e:=e*n;<span>
</span>writeln(f1,e);<span>
</span>close(f1);<span>
</span>end.</span>