fkn+antitotal

..

//Условие
//Есть программа: ______, при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.
Ссылка:

//Попытка решения: при ввведении любой цифры выводит:

soobchenie 1

Как правильно сделать?

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

Решение

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

решение:

program U101Z7;

var i: integer;

begin
  for i:= 1 to 1000 do
  if i mod 7 =0 then
  write (i, ' ');
  readln();
end.

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

Решение:

program U101Z6;

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)<>0 then
   write(i, ' ');
   readln();
end.

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

Решение:

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

Решение:

program U101Z4;

var i: integer;


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

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

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

Решение:

`[Паскаль. Как начать]`

1) Сначала нужно **установить среду разработки**, в которой мы будем программировать, в этом курсе мы используем среду __Лазарус (Lazarus)__, см. инструкцию по установке: http://fkn.ktu10.com/?q=node/11231

2) После установки Лазаруса **запустите тестовое консольное приложение** (приложения такого типа мы будем создавать в данном курсе по Паскалю), см. инструкцию: http://fkn.ktu10.com/?q=node/8368

"/usr/bin/gnome-terminal": not in executable format: File format not recognized

Чтобы открыть консоль, необходимо из главного меню приложения выбрать:

View
-> Debug Windows

-- после чего из списка нужно выбрать окно связанное с выводом в консоль, оно может называться:

• Console
• или Console In/Output
• или Terminal Output

-- или что-то подобное (в зависимости от вашей версии лазаруса).