• Помогите решить задачки Pascal. Только не с интернета, они там не правильные.

    1. Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора
    2.Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0.
    Вывести количество чисел в наборе, меньших K.

Ответы 1

  • 1. var  N, i: integer;  a, sum, mul: real;begin  sum := 0;  mul := 1;  readln(N);  for i := 1 to N do  begin    readln(a);    sum := sum + a;    mul := mul * a;  end;  writeln('Сумма = ', sum);  writeln('Произведение = ', mul)end.2.var  K, less: integer;  a: real;begin  less := 0;  readln(K);  readln(a);  while a <> 0 do  begin    if a < K then      inc(less);    readln(a);  end;  writeln(less)end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years