//pascal abc.net v3.0 сборка 1111 //for var i,n,r: integer; begin readln(n); r: =1; for i: =1 to n do r: =r*i; write(r); end.//whilevar i,n,r: integer; begin readln(n); r: =1; i: =0; while i< > n do begin; inc(i); r: =r*i; end; write(r); end.//repeatvar i,n,r: integer; begin readln(n); r: =1; i: =0; repeat inc(i); r: =r*i; until n=i; write(r); end.
Спасибо
Ответ дал: Гость
uses crt; var
i,s1,s2: integer; begin for i: =1 to 100 do begin if i mod 2=0 then s1: =s1+i else s2: =s2+i; end; writeln('сумма четных чисел: ',s1); write('сумма нечетных чисел: ',s2); end.
Ответ дал: Гость
описание - это собственно его разработка, написание кода, составление формул и т.п.
обращение - это просто сказать - а ну ка выполнись с такими то параметрами, и оно там выполняется, а мы может и знать не знаем чего оно там конкретно делает.
Популярные вопросы