Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
сидерический год.
var
x: array[1..15]of integer;
i,min,z: integer;
begin
min: =32000;
z: =0;
for i: =1 to 15 do
readln(x[i]);
if x[i]> 0 then if x[i]< min then min: =x[i];
if x[i]=0 then inc(z);
end;
writeln(min);
writeln(z);
end.
program zadacha6; var a,b: real; begin readln(a,b); if a> b then writeln (a) else writeln (b); end.
не? я не уверен
по формуле включений-исключений
35 = 24 + 18 + 12 - 5 - 10 - 8 + х
х = 4
чтобы понять формулу, надо нарисовать 3 круга которые имеют общую область пересечения
Популярные вопросы