урок 12.1 задача 5

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Tue, 04/26/2022 - 18:11

Forums:

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

program project125;
var a: integer;
begin
  a:= 35;
  repeat
    if ((a mod 2)=0) or ((a mod 2)=1) and ((a mod 3)=0)
    and ((a mod 3)=0) and (a>44) and (a<100) then
      write(a, ' ');
      a:=a+1
  until (a>117) ;
  readln();
end.
  • Log in to post comments
  • 3813 reads
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:31

Вместо:

(a>44) and (a<100)

можно было писать понятнее:

(a>=45) and (a<=99)

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

vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:39

  1. Выписать ряд, который должен выводиться на экран (первые 10 чисел хотя бы) -- скопировать в комменты
  2. Сравнить с тем что выводить программа
  3. ((a mod 2)=1) and ((a mod 3)=0)
    and ((a mod 3)=0) and (a>44) and (a<100)

    -- проверить этот блок на соответствие условию

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

isaac_fan's picture

isaac_fan

Sat, 04/30/2022 - 21:51

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

мы ещё не проходили такие сложные задачи а что такое 'диапозон" я вобще незнаю

vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 17:35

Решить двумя циклами:

  1. Выведите на экран, все четные числа от 35 до 117
  2. И все числа от 45 до 99, которые при этом делятся на 7 и 3 нацело

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

isaac_fan's picture

isaac_fan

Tue, 05/17/2022 - 17:24

1 вариант

var  i:integer;

begin
i:=35;
repeat
 if ((i mod 117 )=0)  then
 i:= i - 1;
 write(i);
until(i=0) ;
end.

2 задача

var i,f:integer;

begin


 for i:=45 to 99 do

   if ((i mod 7 and i mod 3)=0) then
   writeln(i);



  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/17/2022 - 20:29

на паузу, сначала решить задачу 7 урока 10.1 http://fkn.ktu10.com/?q=node/8612

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

isaac_fan's picture

isaac_fan

Sat, 06/11/2022 - 21:40

.

isaac_fan's picture

isaac_fan

Wed, 07/06/2022 - 11:31 

program Project1;
var
i,j:integer;
begin
  for i:=35 to 117 do
    writeln((i mod 2)=0);
  for j:=49 to 99 do
    writeln((j mod 2)=1);
  readln();
end.