3
Код:
Var a:longint;
begin
Writeln('vvedite nomer is 5 cifr');
readln(a);
a:=a div 10000;
if ((a=3) or (a=9))
then Writeln('da')
else Writeln('net');
readln;
end.
4
Код:
var c,e:integer; i:byte;
begin
Writeln('vvedite C i E');
readln(c,e);
for i:=1 to c do
e:=e+c;
c:=e;
Writeln(c);
readln;
end.