задача 7 урок 10.1

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Sat, 06/11/2022 - 13:31

Forums:

урок 10.1

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

//я попытался зделать но у меня не получилось ,не понимаю почему выводится true и false

program Project1;
 var
   i:integer;
begin
  for i:=35 to  117  do
    writeln((i mod 2)=0);
    writeln((i mod 2)=1);
  readln();
end.
  • Log in to post comments
  • 1177 reads
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 20:21

сначала решим задачи 1 и 2 из урока 10.0 http://fkn.ktu10.com/?q=node/7343

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

isaac_fan's picture

isaac_fan

Tue, 07/05/2022 - 17:19

1 задача

program Project1;
var
  i:integer;
begin
  writeln('ведите целое число');
  readln(i);
  if((i mod 4)=0) then
    writeln('число делится на 4');
  if((i mod 4)=1) then
    writeln('число не  делится на 4');
end.

2 задача

    program Project1;
var
  i,j,k,l:integer;
begin
  writeln('ведите целое число 1');
  readln(j);
  writeln('ведите целое число 2');
  readln(k);
  writeln('ведите целое число 3');
  readln(i);
  writeln('ведите целое число 4');
  readln(l);
  if ((j mod 4)=0) and ((k mod 4)=0) and  ((i mod 4)=0) then
    writeln(j,k,i);
end.
vedro-compota's picture

vedro-compota

Thu, 07/21/2022 - 18:51 

program Project1;
var
  i:integer;
begin
  writeln('ведите целое число');
  readln(i);
  if((i mod 4)=0) then
    writeln('число делится на 4');
  if((i mod 4)=1) then
    writeln('число не  делится на 4');
end.

--переписать в полной форме IF

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

isaac_fan's picture

isaac_fan

Mon, 07/25/2022 - 12:58 

program Project1;
var
  i:integer;
begin
  writeln('ведите целое число');
  readln(i);
  if((i mod 4)=0) then
    writeln('число делится на 4');
  else  
   writeln('число не  делится на 4');
end.
vedro-compota's picture

vedro-compota

Thu, 07/21/2022 - 19:00

Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4-е.

-- решить вторую задачку с этим условием

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

isaac_fan's picture

isaac_fan

Mon, 07/25/2022 - 13:02 

    program Project1;
var
  i,j,k,l:integer;
begin
  writeln('ведите целое число 1');
  readln(j);
  writeln('ведите целое число 2');
  readln(k);
  writeln('ведите целое число 3');
  readln(i);
  writeln('ведите целое число 4');
  readln(l);
  if ((j mod 4)=0) and ((k mod 4)=0) and  ((i mod 4)=0) then
    writeln(j,k,i);
 else if ((j mod 4)=0) and ((k mod 4)=0) and  ((l mod 4)=0) 
      writeln(j,k,l);
end.
vedro-compota's picture

vedro-compota

Thu, 09/15/2022 - 20:05

решить без логических операций AND и OR, используя счетчик

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