Регистрация
Лобан1
08.08.2020 17:37
Информатика
Есть ответ 👍

Впаскале! дано ціле число n. надрукувати n чисел aᵢ=√i / i²+1 , i=1,.

202
431
Посмотреть ответы 2

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

sofija97
sofija97
4,7(45 оценок)
N, i, k, a: integer; beginreadln(n); k : = 0; for i : = 1 to n dobeginreadln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.
Sanchos106
Sanchos106
4,5(48 оценок)

unit math;

var

    d,m: array[1..20] of integer;

    sr: real;

    kol,s: integer;

begin

  for i: =1 to 20 do begin

      d[i]: =randomrange(140,180);

      writeln('рост ',i,'-ой девочки =',d[i],' см');

      m[i]: =randomrange(140,190);

      writeln('рост ',i,'-го мальчика= ',m[i],' см');

  end;

  s: =0; sr: =0; kol: =0;

  for i: =1 to 20 do s: =s+m[i];

  sr: =s/20;

  writeln('средний рост мальчиков= ',sr,' см');

  for i: =1 to 20 do

  if d[i]> sr then kol: =kol+1;

  writeln('колличество девочек превышающий средний рост мальчиков= ',kol);

end.

 

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