выручите!

[pasha ugryumov]

помогите решить вариант

[Mad_Cat]

выручите!
помогите решить вариант

язык какой?

[pasha ugryumov]

я не знаю. просто не шарю в информатике вообще

[Stilet]

Выручаю:

MODULE q;
IMPORT StdLog,Math,ObxRandom;


PROCEDURE First(i:INTEGER):INTEGER;
VAR s:INTEGER;
BEGIN s:=0;
 WHILE i>0 DO 
  IF s#0 THEN  s:=s*i MOD 10 ELSE s:=i MOD 10; END;
  i:=i DIV 10;
 END;
 RETURN s;
END First;

PROCEDURE Sec(x,y:INTEGER):INTEGER;
BEGIN
 IF (x>1)&(y>1) THEN RETURN x+y; END;
 IF (x>1)&(y<=1) THEN RETURN x-y; END;
 IF (x<=1)&(y>0) THEN RETURN -x+y; END;
 IF (x<=1)&(y<-0) THEN RETURN -x-y; END;
END Sec;

PROCEDURE Thrid(x,a,b:INTEGER):REAL;
VAR res,l:REAL;i:INTEGER;
BEGIN
 FOR i:=a TO b  DO
  res:=res+(Math.Sin(3*Math.Pi()/2)+x)/(x+Math.Sqrt(((3*Math.Pi()/2)+x)));
 END;
 RETURN res;
END Thrid;

PROCEDURE four;
VAR i:INTEGER; a:ARRAY(10) OF REAL;sa:REAL;
BEGIN
 FOR i:=0 TO LEN(a)-1  DO
  a[i]:=ENTIER(50-ObxRandom.Uniform()*100);
  sa:=sa+a[i]; 
 END;

 FOR i:=1 TO LEN(a)-1  DO
  IF (i MOD 2)=0 THEN  a[i]:=sa;END;
  StdLog.Real(a[i]);
 END;

END four;

PROCEDURE do*;
BEGIN
 StdLog.Clear;
 StdLog.Int(First(123));StdLog.Ln;
 StdLog.Int(Sec(2,5));StdLog.Ln;
 StdLog.Real(Thrid(2,5,4));StdLog.Ln;
 four; 
END do;

END q.
q.do;

[Mad_Cat]

я не знаю. просто не шарю в информатике вообще

Адрес военкомата знаешь? -- иди сдавайся

[pasha ugryumov]

спасибо большое Stilet

[Mrsqler]

Тоже выручаю)Код может кривоват,но зато работает)
Задача №1

var
 a,s1,s2,s3:string;
 result:integer;
begin
 readln(a);
 s1:=copy(a,1,1);
 s2:=copy(a,2,1);
 s3:=copy(a,3,1);
 result:= StrToInt(s1)*StrToInt(s2)*StrToInt(s3);
 write(result);
end.

[Mad_Cat]

да уж тогда поправляю)

var
 a:string;
 result:integer;
begin
 readln(a);
 result:= StrToInt(a[1])*StrToInt(a[2])*StrToInt(a[3]);
 write(result);
end.

[Mrsqler]

Да я только учусь.Со строками очень мало работал)

[Stilet]

Со строками очень мало работал)

А зачем тут строки? Совершенно не нужны.