fkn+antitotal

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

var
  a: array [1..7] of integer;
  i:integer;
begin
  a[1]:=1;
  a[2]:=12;
  a[3]:=45;
  a[4]:=6;
  a[5]:=7;
  a[6]:=18;
  a[7]:=99;
  for i:=low(a) to high(a) do
    write(a[i],' ');
end. 

Консоль:

1 12 45 6 7 18 99

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):

Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).

var a:integer;

procedure send(var z:integer);
begin
  writeln('Vvedite celoe chislo: ');
  readln(z);
end;

begin
  a:=1;
  send(a);
  writeln(a);
end.   

Консоль:

Vvedite celoe chislo: 
5

5

Напишите процедуру, которая выводит на экран сумму трёх целых чисел

var x,y,z:integer;

procedure sum(a,b,c: integer);
begin
  writeln(a+b+c);
end;

begin
  writeln('Vvedite celoe chislo: ');
  readln(x);
  writeln('Vvedite celoe chislo: ');
  readln(y);
  writeln('Vvedite celoe chislo: ');
  readln(z);
  sum(x,y,z);
end.   

Консоль:

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
5

15

Напишите функцию, которая возвращает сумму трёх целых чисел.

var x,y,z:integer;
function sum(a,b,c: integer):integer;
begin
  result:=a+b+c;
end;

begin
  writeln ('Vvedite celoe chislo: ');
  readln(x);
  writeln('Vvedite celoe chislo: ');
  readln(y);
  writeln('Vvedite celoe chislo: ');
  readln(z);
  writeln(sum(x,y,z));
  readln();
end.   

Контроль:

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
4

Vvedite celoe chislo: 
7

16

Задача 16 Урок 11

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным

Решение:

Задача 15 Урок 11

Задача 14 Урок 11

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным

Решение:

Задача 13 Урок 11

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:
46541
(используйте опеции div и mod, подразумевается решение через цикл )

Решение:

var a,b:integer;
begin
  writeln('Vvedite 5-i znachnoe chislo');
  readln(a);
  while (a<>0) do
    begin
      b:= a mod 10;
      a:= a div 10;
      write(b);
    end;
  readln();
end.  

Консоль: