• помоги пожалйста!
    1)Запрограммировать вывод на экран стихотворение:
    10 поросят пошли купаться в море.
    10 поросят резвились на просторе.
    Один из них утоп – его сложили в гроб,
    И вот вам результат – 9 поросят…
    где в каждом куплете количество поросят уменьшается на 1.
    2)Запросить с клавиатуры целое число n. Используя циклы, найти
    n! = 1 х 2 х…х (n-1) x n
    3)1 кг творога стоит 115 руб. Вывести на экран таблицу стоимости творога массой
    100 г, 200 г, …, 900 г

Ответы 2

  • спасибо огромное!
  • Первая:program qwer;uses crt;var i, kol : integer;Beginkol := 10;for i := 10 downto 1 dobeginwriteln(kol,' поросят пошли купаться в море.');writeln(kol,' поросят пошли купаться в море.');writeln(kol,' поросят резвились на просторе.');writeln(kol,' Один из них утоп – его сложили в гроб,');kol := kol - 1;writeln('И вот вам результат – ',kol,' поросят…');end;End.Вторая: program qwer;uses crt;var i, pr, n : integer;Beginreadln(n);pr := 1;for i := 1 to n dopr := pr * i;write(pr);End.Третья:program qwer;uses crt;var s, i : integer;Begins := 115;for i := 1 to 9 dowriteln(i * 100,'г = ',i * 100 * s / 1000,'руб');End.Готово!
  • Добавить свой ответ

Войти через Google

или

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

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

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