fkn+antitotal

Урок 14.1 Задача 5:

У вас есть код:

var b: integer;
 
procedure p2();
var a: integer;
begin
  a:=4;
  writeln('a=', a);
  writeln('b=', b);
end;
 
begin
  writeln('Введите значение b:');
  readln(b);
  p2();
end. 

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

Оригинальная страница: http://linuxgeeks.ru/bash-intro.htm (снова недоступна довольно долгое время в 2022 году, поэтому делаем тут резервную копию). Мы слегка дополним этом статью, в нашей версии.

Уроки:

Задача 12 Урок 15:

12. Пусть есть процедура, которая умеет сдвигать массив влево на 1 элемент, начиная с указанного символа (устанавливая последний элемент равным нулю):

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

Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).

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

Пользователь вводит число, определите делится ли оно на 4

var a: integer;
begin
  writeln('vvedite chislo:');
  readln(a);
  if (a mod 4) = 0 then
    writeln( a, ' delitca na 4 bez ostatka')
  else
    writeln( a, ' ne delitca na 4 bez ostatka');
  readln();
end.

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

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

var i:integer;

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

  readln();
end.

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

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

var i:integer;

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

  readln();
end.

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

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

var i:integer;

begin
  for i:= 35 to 117 do
    if (((35<=i)and(i<=117))and((i mod 2)=0))or((((45<=i)and(i<=99))and((i mod 2)=1))) then
      write(i, ' ');

  readln();
end.

Урок 10.1 Задача 6

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

var a,i:integer;

begin
  for i:= 35 to 117 do
    if ((i mod 2)=1) and ((i mod 3)=0) then
      write(i, ' ');
  readln();
end.

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

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var a,i:integer;

begin
  writeln('vvedite tceloe chislo A: ');
  readln(a);
  writeln();
  if a>100 then
    for i:= a downto 1 do
        write(i, ' ')
    else
      for i:= 1 to a do
    write(i, ' ');
  readln();
end.