fkn+antitotal

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

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var
  a:integer;
begin
  a:=1;
  while a<=15 do
    begin
      writeln('Введите число и я сложу его с семью ');
      readln(a);
      writeln('Результат = ', a+7);
    end;
  writeln('Конец');
  readln();
end.      

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

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

	
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму, т.е. для каждой строки вы должны каждый раз (причем один раз для одной строки) вызывать эту подпрограмму.

Решение:

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

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

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -

-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные агрументы.

Решение:

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

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

Решение:

var a: integer;

procedure chislo(var x:integer);
begin
  writeln('vvedite chislo');
  readln(x);
end;
begin
  chislo(a);
  writeln('chislo = ',a);
  readln();
end.

Консоль:

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

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

Решение:

var s,k,m,n: integer;

procedure sum3(a,b,c: integer; var d:integer);
begin
  d:=a+b+c;
end;
begin
  k:=1;
  m:=2;
  n:=3;
  sum3(k,m,n,s);
  writeln('summa = ',s);
  readln();
end.

Консоль:

summa = 6

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

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

Решение:

var s,k,m,n: integer;

function sum3(a,b,c: integer): integer;
begin
  result:=a+b+c;
end;
begin
  k:=1;
  m:=2;
  n:=3;
  s:=sum3(k,m,n);
  writeln('summa = ',s);
  readln();
end.

Консоль:

summa = 6

Если вам требуется сделать так, чтобы локальная ветка снова соответствовала тому, что раньше отправили с помощью push во внешний репозиторий, то можно использовать git reset (в случае если локальные изменения вообще не интересуют более, то с опцией --hard) -- см. раздел "Удаление всех неопубликованных коммитов"

Подразумевается, что удаленная ветка origin/имяветки существует и ее кэш локально обновлен, если нет то на всякий случай предварительно можно выполнить:

Задача 7. Урок 10.1.

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

1.

Задача 9. Урок 10.1.

Переберите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var
  i:integer;
begin

  for i:=1 to 100 do
  write(i,'  ');

  writeln();

  for i:=1 to 100 do
  if ((i mod 7)=0) then
  write(i,'  ');

  readln();
end.  

Консоль:

Задача 8. Урок 10.1.

Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var
  i:integer;
begin

  for i:=35 to 117 do
  if ((i mod 3)=0) then
  write(i,'  ');
  writeln();
  for i:=45 to 99 do
  if ((i mod 2)=1) then
  write(i,'  ');

  readln();
end.

Консоль: