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.
Ответ дал: Гость
s : = 1 ;
for i : = 1 to n do
if a[i] mod 3 = 0 then
s : = s * a[i];
writeln(s);
Ответ дал: Гость
ваня и с.- отличники, значит ваня не с.петя и в.- троечники, значит петя не в. в. ростом выше п., а коля ростом ниже п. - значит коля не в. и коля не п. так как петя – троечник, то петя не с. так как ваня – отличник, то ваня не в. саша не п., не с., не к.тогда коля это с. коля это не к.т.к. саша это в. и саша одного роста с петей, то петя не может быть п., т.к. в выше п., петя это к.отсюда ваня это п.
саша =в петя=к ваня=п коля=с
Ответ дал: Гость
файл с исходным текстом программы на паскале должен иметь расширение pas.
Популярные вопросы