4610,десяточка маленькая снизу =1011102 двоечка маленькая снизу
Var n:integer;
Begin
Read(n);
Case n of
1,3,5,7,8,10,12:n:=31;
4,6,9,11:n:=30;
2:n:=28;
else n:=0;
End;
Write(n)
End.
Результат отработки алгоритма:
A=2
B=2
C=9
D=3
Pascal
var
m : integer;
a,b,y : real;
begin
writeln ('menu:');
writeln ('1) y= (a+b)2');
writeln ('2) y= a^2-b^2');
writeln ('3) y= 1/(a+b)')
writeln ('a=');
readln(a);
writeln ('b=');
readln(b);
readln (m);
case m of
1: y := (a+b)*2;
2: y :=sqr(a)-sqr(b);
3: y := 1/(a+b);
end;
writeln ('y=',y:3:2);
end.
Чтобы знать к какому типу файл относится и для правильной работы с различными программами и форматами.