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

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

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

var i: integer;
begin

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

  readln();
end.        

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

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

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

var i: integer;
begin

  for i:=35 to 117 do
    if ((i mod 3) = 0) OR ((i >= 45) AND (i <= 99)) AND ((i mod 2) = 1) then
      write(i, ' ');
  readln();
end. 

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

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

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

1 вариант:

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

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

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

var i: integer;
begin

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

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

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

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

var i, n: integer;
begin
  readln(n);
  if (n > 100) then
    for i:=n downto 1 do
      write(i, ' ')
  else
    for i:=1 to n do

      writeln(i, ' ');

  readln();
end.

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

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

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

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

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

Выведите на экран, все четные числа от 35 до 64.

var i: integer;
begin
  for i:=35 to 64 do
    if i mod 2 = 0 then
      write(i, ' ');
  readln();
end.   

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

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

Выведите на экран, все числа от 35 до 64.

var i: integer;
begin
  for i:=35 to 64 do
    write(i, ' ');
  readln();
end. 

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

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

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:

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

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

есть код:

var a, b, c, d : integer;
begin
writeln('vvedite a, b, c, d');
readln(a, b, c, d);
if (a > b) then
if (a > c) then
begin
if (a > d) then
writeln ('Выбираем a');
writeln ('Может выбрали a');
  end;
readln();
end.  
Исправьте форматирование

Исправил:

Pages

Subscribe to fkn+antitotal RSS