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

Primary tabs

Submitted by NikSo on Fri, 10/07/2022 - 08:23

Forums:

Задача 7 Урок 12.1:

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

program task7;
var a: integer;
begin
  a:=35;
  repeat
    if (a>35) and (a mod 2=0) then
       writeln (a);
    if (a>45) and (a<99) and (a mod 3=0) and (a mod 7=0)  then
       writeln (a);
    a:=a+1;
  until (a=117);
  readln();
end.
  • Log in to post comments
  • 991 reads
vedro-compota's picture

vedro-compota

Sun, 10/23/2022 - 18:05

есть лишние подусловия (проверки)

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

NikSo

Tue, 10/25/2022 - 08:12 

program task7v2;
var a: integer;
begin
  a:=35;
  repeat
    if (a mod 2=0) then
       writeln (a)
    else if (a>45) and (a<99) and (a mod 3=0) and (a mod 7=0)  then
       writeln (a);
    a:=a+1;
  until (a=117);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/30/2022 - 13:11

засчитано

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