Регистрация
spurdosparde228
20.12.2022 21:06
Информатика
Есть ответ 👍

Нужно написать программу на pascal abc net. суть программы такова, что нужно человеку сначала ввести n чисел, после чего программа должна сложить данные числа и эту сумму поделить на сумму чисел в числе,которое получилось в первой сумме, когда человек вводил числа. формула: где sum1= сумму n чисел, которые ввёл человек sum2=сумму чисел в числе, получившееся в результате сложения чисел, вводимых человеком. 100 за написание такой программы!

169
483
Посмотреть ответы 3

Ответы на вопрос:

alexbalahoncev
alexbalahoncev
4,5(85 оценок)
// pascalabc.net 3.3 begin   var n: =readinteger('n =');   var a: =readseqinteger('введите '+n+' чисел: ',n);   var sum1: =a.sum;   var x: =sum1;   var sum2: =0;   while (x> 0) do      begin     sum2: =sum2+x mod 10;     x: =x div 10;     end;   writeln('sum1 = ',sum1,' sum2 = ',sum2,' sum1/sum2 = ',sum1/sum2); end. пример: n = 5 введите 5 чисел:   2 7 4 3 5 sum1 = 21 sum2 = 3 sum1/sum2 = 7
maliiii02
maliiii02
4,4(21 оценок)
Ну должно быть как то так .
sofya206
sofya206
4,6(6 оценок)

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

Популярно: Информатика