Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
паскаль же?
var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin
d: =d+k;
val(s,k,err);
end;
write (d);
end.
program vvl;
var x: integer;
v: real;
begin
write('x=');
readln (x);
v: = abs(a)-2;
writeln ('v='; v: 2: 1);
на паскале:
program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.
крестьянин должен переправить волка и капусту с собой.а козу надо кинуть
на другой берег.
Популярные вопросы