Если в ячейках A1,A2,A3 записаны числа, то формула:
=IF(A1=0;0;IF(A2=0;0;IF(A3=0;0;1)))
Раскодировка в понятный формат
var a:integer;
begin
writeln ('Vvedite nomer mesuaca');
read (a);
if (a=1) then writeln ('30');
if (a=2) then writeln ('28');
if (a=3) then writeln ('30');
if (a=4) then writeln ('31');
if (a=5) then writeln ('30');
if (a=6) then writeln ('31');
if (a=7) then writeln ('30');
if (a=8) then writeln ('31');
if (a=9) then writeln ('30');
if (a=10) then writeln ('31');
if (a=11) then writeln ('30');
if (a=12) then writeln ('31');
end.
<span><span>program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
while (i<=15) do
begin
</span>s := s + i*cos(i*x); <span>
i := i + 1;
end;
writeln('S= ', s:0:2);
end.</span><span>а вот с repeat until
program M;
var i: integer = 2;
s: double = 0;
x: integer = 2;
begin
repeat
</span>s := s + i*cos(i*x); <span>
i := i + 1;
until i>15;
writeln('S= ', s:0:2);</span></span>
<em>майор – артиллерист, капитан – лётчик, лейтенант – связист, старшина – миномётчик, сержант – сапёр, ефрейтор – танкист. </em>