Задача 12 Урок 13.1

Задача 12 Урок 13.1

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

1
2
6
3

А для 8:

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

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

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var a:integer;
begin

writeln('vvedite chislo > 0');
readln(a);
 while (a > 0) do
  begin

   if((a mod 2) = 1) then
    writeln(a, '- ne chetnoe')
   else
    writeln(a, '- chetnoe');
  writeln('vvedite chislo > 0');
  readln(a);
  end;

writeln('konec!');
readln();
end. 

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

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

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

var i,a:integer;
begin
  write('vvedite celoe 4islo -  ');
  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

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

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

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

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

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

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

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

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

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.

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

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

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

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

program project1;
var numb:integer;

begin
numb:=35;
  repeat
    numb:=numb+1;
  if((numb mod 2=0)and(numb mod 3=0)and(numb mod 6=0))then
    write(numb,' ');
  until (numb>116);
readln();
end.

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

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

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

  program project1;
  var ch:char;

  begin
    repeat
      write('Vvedite simvol: ');readln(ch);
      writeln('&');
      if(ch='#')then
        exit;
    until (ch='#');
  readln();
  end. 

Pages

Subscribe to fkn+antitotal RSS