Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз. - Pascal ABC

  1. Написать процедуру, выводящую на экран фразу «Добрый день!» заданное количество раз.


textual

Код:

uses crt;
procedure p(n:integer);
var i:integer;
begin
for i:=1 to n do
 begin
  write('Добрый день!    ');
  if i mod 5=0 then writeln
 end;
end;
var n:integer;
begin
write('n=');
read(n);
clrscr;
p(n);
end.


Похожие ответы
  1. Добрый день. Знаю, что такое уже было на вашем форуме, но оно было не полностью, а как доделать я не сильно знаю. Задача: Написать программу перевода целого числа a из цифрового формата в прописной. a < 1012 Пример: a = 123 ⇒ cто двадцать три. Вот код, который я обнаружил на этом сайте:

  1. Написать программу формирования ОПЗ и расчета полученного выражения. Разработать удобный интерфейс ввода исходных данных и вывода результатов. Работу программы проверить на конкретном примере Сам пример со значениями которые должны получиться: (a– b)/(c+d)*e , где а=0.3 b=6.7 c=8.4 d=9.6 e=1.2 Результат должен получиться -0.429. Помогите пожалуйста используя динамический массив заранее спасибо

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

  1. Помогите, пожалуйста, с программой Даны натуральное число n, целые числа а1,…,аn (последовательности идущих подряд членов), состоящие из степеней пятерки. Определить процедуру, позволяющую распознавать степень пятерки. Программу оформить в виде диалога. Выход из программы – нажатием Esc.

  1. Даны натуральные k, m. Написать процедуры для вывода следующих фигур: а) k - строк, m - столбцов, б) k - строк, m – половина разности длины двух любых соседних строк.

  1. Написать программу для построения графика функции. y=sqrt(2x+6)

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 var a,c: integer; begin cls; randomize; a:=random (99999+99999+1)-99999; writeln ( 'исходное числo: ',a); if (a mod 10) mod 2 =0 then writeln (' делится на 2') else writeln (' не делится на 2'); while a<>0 do begin c:= c+(a mod 10); a:= a div 10; end; if c mod 3 = 0 then writeln (' число делится на 3') else writeln (' число не делится на 3'); end.признак делимости на 6 - это значит, что число делится на 2 и 3. я сделала по отдельности на 2 и 3 ( программа выше). а как это обобщить?

  1. Нужна срочная помощь в написании данных программ на Pascal ABC. Спасибо! 1.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Сформировать и вывести на экран второй массив, каждый элемент которого получается сложением элемента первого массива на его максимальное значение. 2.Вывести на экран массив из 10 случайных положительных и отрицательных чисел. Сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные заменяются на 1. 3.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Найти разницу между максимальным и минимальным элементами массива. 4.Значения элементов массива a из 10 целых чисел вводятся с клавиатуры. Создать второй массив, состоящий из НОМЕРОВ отрицательных элементов массива a.

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции , заданной в виде графика. Параметр R задается константой.

  1. В программе ввести индекс,значение которого увеличивается после каждого действия оператора.