Pascal Урок 11 задача 4

Primary tabs

Submitted by JimATI on Wed, 02/12/2020 - 19:42

Forums:

Урок 11 Задача 4:

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

Решение:

program U11Z4H1;
var a: integer;
begin
  a:=35;
  while a<117 do
  begin
    a:=a+1;
    if((a mod 2)=0)then
      writeln(a, '  ');
    writeln();

    if(a>45)and(a<99)and
      ((a mod 2)<>0)then
       writeln(a, '  ');
  end;
  readln();
end.
  • Log in to post comments
  • 4636 reads
vedro-compota's picture

vedro-compota

Wed, 02/12/2020 - 19:46

код отформатирован неверно

_____________
матфак вгу и остальная классика =)

JimATI

Wed, 02/12/2020 - 19:51

Исправлено

vedro-compota's picture

vedro-compota

Wed, 02/12/2020 - 22:39

приведите теперь решение с одним общим условием (чтобы внутри тела цикла был 1 if)

_____________
матфак вгу и остальная классика =)

JimATI

Fri, 02/28/2020 - 21:38 

program U11Z4;
var a: integer;
begin
  a:=35;
  while a<117 do
  begin
    a:=a+1;
    if((a mod 2)=0)or
    (a>45)and(a<99)and
    ((a mod 2)<>0)then
       write(a, '  ');
  end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sat, 02/29/2020 - 14:44

решение засчитано

_____________
матфак вгу и остальная классика =)