Уровень а. (оценка 3 напишите программу, которая выводит m линий из символа s, заданного пользователем длиной n символов. при запуске программы m, n, s нужно ввести с клавиатуры. пример: количество линий: 2. длина цепочки: 7. символ-заполнитель: - для реализации программы напишите процедуру line, которая принимает два параметра – символ-заполнитель s и натуральное число n, и выводит на экран одну линию из символов s длиной n. пример: длина цепочки: 7. символ-заполнитель: -

//PascalABC.NET 3.2 сборка 1318

Var
  m,n,i:integer;
  s:char;

procedure line(c:char;n:integer);
Var
  i:integer;
begin
for i:=1 to n do
write(c);
writeln;
end;
 

begin
readln(m,n);
readln(s);
for i:=1 to m do
line(s,n);
end.

Пример ввода:
2
7
-
Пример вывода:

Годовая процентная доходность (Annual Percentage Yield, APY) — ставка дохода, вычисленная с учётом применения к депозитам или инвестиционным продуктам сложных процентов. Позволяет упростить сравнение доходности для годовых сложных процентов с различающимися интервалами начисления дохода (когда проценты начисляются несколько раз в году по годовой сложной процентной ставке). Годовая процентная доходность (APY) показывает такую процентную ставку доходности, как если бы годовой сложный процент начислялся один раз в год и давал бы такую же наращенную стоимость (будущая (приведенная) стоимость) как при начислении рассматриваемого годового сложного процента, который выплачивается несколько раз в год.

Некратно - переменная равна 1, кратно - 0.

program qq;
uses crt;
var a, p: integer;
begin
p:=1; //Присвоим переменной значение единицы (Положим, число некратно трем и четырем
writeln('Введите число а');
readln (a);
if a mod 3 = 0 then //Остаток от деления числа на 3
   if a mod 4 = 0 then //Остаток от деления числа на 4
                                   p:=0; // Если оба условия выполнены, то число кратно, переменная равна 0
writeln (p);
end.

Так же тело программы можно представить следующим образом (учитываем, что если число кратно 3 и 4, то оно кратно 12)
p:=1;
writeln('Введите число');
readln (a);
if a mod 12 = 0 then  p:=1;
writeln (p);