Задать вопрос Регистрация
Помочь другим

Ответы 1

  • 1)

    var n,i,j:integer;beginread(n); for i:=n downto 1 do begin for j:= i downto 1 do write(n); writeln; end;end.

     

    2)

    vara,b,n,s,i: integer;beginwrite('Vvedite a,b');read(a,b);s:=0;for i := a to b doif (i mod 3 = 0) or (i mod 5 = 0) thenbegins:=s+1;end;write('kolichestvo ', s);end.

     

    3)

    var n, k, i, q: integer;begin repeat readln(n); until n > 1; k := n; i := 2; repeat if k mod i = 0 then begin k := k div i; write(i:5); inc(q) end else inc(i) until (k = 1) or (i > n div 2); if q = 0 then writeln('Prostoe chislo');end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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