Pascal Урок 11 Задача 3 Решение

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

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

program U11Z3;
var a:integer;
begin
  a:=35;
  while (a<117) do
    begin
    a:=a+1;
    if((a mod 2)<>0)and((a mod 3)=0)then
      write(a, ' ');
    end;
  readln();
end.                  

Pascal Урок 11 Задача 2 Решение

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

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

Pascal Урок 11 Задача 1 Решение

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

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

program U11Z1;
var a:integer;
begin
  a:=1;
  while(a<=15)do
  begin
    writeln('vvedite chislo:');
    readln(a);
    writeln(a+7);
  end;
  writeln('vse');
  readln();
end.                

Pascal Урок 10 задача 5 Решение

Урок 10 задача 5

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

Pascal Урок 10 Задача 4 Решение

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

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

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

Pascal Урок 10 Задача 3 Решение

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

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

program U10Z3;
var i, a: integer;
begin
  writeln('vvedite celoe 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.             

Pascal Урок 10 Задача 2 Решение

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

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

Pascal Урок 10 Задача 1 Решение

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

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

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

Pascal Урок 9 Задача 8 Решение

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

Pascal Урок 9 Задача 7 Решение

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

Пользователь вводит четыре числа, найдите из них максимальное.

Pages

Subscribe to fkn+antitotal RSS