fkn+antitotal

задача 2 урок 21

Дано целое положительное число N. Выведите на экран все число от 1 до N (по возрастанию).

Решение
Функция
f

unction chislo(n: integer): integer;
begin
  if n <> 0 then
  begin
    result := chislo(n - 1);
    write(n);
  end;
end;

var n: integer;
begin
  readln(n);
  chislo(n);
  readln
end.

Процедура

задача 1 урок 21

Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию).

program task_1_lesson21;
function chislo(n: integer): integer;
begin
  if n <> 0 then
    begin
      write(n);
      result := chislo(n - 1);
    end;
end;

var
  n: integer;
begin
  readln(n);
  chislo(n);
  readln
end.

Процедура

Как и в обычном редьюсере для этого следует использовать явный return, например для

createSlice():

const mapSlice = createSlice({
  name: 'planSettings',
  initialState: getPlannerState(),
  reducers: {
    setUsedColorsIds(state, { payload }: PayloadAction<number[]>) {
      state.usedColorsIds = payload; // обновляем подобъект
    },
    setEntireState(state, { payload }: PayloadAction<PlanState>) {
      return payload; // обновляем весь объект!
    },
  },
});

Задача 1 урок 10.2

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
  readln();
end. 

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

Решение:

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

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

program zadacha7;
var i :integer;
begin
 for i:=1 to 100 do
  if (i mod 7) = 0 then
   write(i,' ');
 readln();
end.

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

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

Решение в 1 цикл:

program zadacha6;
var i :integer;
begin
 for i:=35 to 117 do begin
  if (i mod 3) = 0 then
   write(i,' ');
  if (i>=45) and (i<=99) and ((i mod 2) = 1) then
   write(i,' ');
 end;
 readln();
end.  

Решение в 2 цикла:

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

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

program zadacha5;
var i :integer;
begin
 for i:=35 to 117 do begin
  if (i mod 2) = 0 then
   write(i,' ');
  if (i>=45) and (i<=99) and ((i mod 2) = 1) then
   write(i,' ');
 end;
 readln();
end. 

Задача 4 урок 10.1

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

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

Задача 3 урок 10.1

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

program zadacha3;
var i, a :integer;
begin
 writeln('Vvedite chislo: ');
 readln(a);
  if a>100 then
   for i:=a downto 1 do
    write(i,' ')
  else
   for i:=1 to a do
    write(i,' ');
 readln();
end.     

Задача 2 урок 10.1

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.