ПОМОГИТЕ НАПИСАТЬ ХОТЯ БЫ ОДНУ ЗАДАЧУ НА Pascal

ОНИ НЕ СЛОЖНЫЕ , А Я ДАЮ МНОГО ПУНКТОВ!! За 2 лучший ответ! Без плагиата!

1.Написать программу,используя оператор цикла While,которая будет вводить целые положительные числа не превышающие 100. Найти сумму квадратов чисел 2.Написать программу используя оператор цикла Repeat,которая будет вводить целые числа до тех пор пока не будет введён 0.Подсчитать среднее арифметическое введённых чисел.

1

Ответы и объяснения

2013-03-22T21:06:37+04:00

var

  k : int64;

  c : integer;

begin

  k := 0;

  while not eoln do

begin

  read (c);

  k := k + sqr (c);

end;

  writeln (k);

end.

 

var

  count, c, sum : integer;

begin

  count := 0;

  sum := 0;

  c := 0;

  repeat

    read (c);

    sum := sum + c;

    inc (count);

  until c = 0;

  if count > 0 then writeln (sum / (count - 1)) else writeln ('Невозможно делить на 0');

end.