Урок 10

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

Пользователь вводит число, определите делится ли оно на 4

var a:integer;
begin
  writeln('vvedite chislo');
  readln(a);
  writeln('chislo delitc na 4: ', (a mod 4)=0);
  readln();
end.       


Вывод консоли:
vvedite chislo
4
chislo delitc na 4: TRUE 

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

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

var a,b,c,d:integer;
    i:integer;
begin
  i:=0;
  writeln('vvedite 4 chisla');
  readln(a,b,c,d);
  writeln;
  if (a mod 4=0) then
    begin
      writeln ('a dedlitc na 4 ',a);
      i+=1;
    end;
  if (b mod 4=0) then
    begin
      writeln ('b dedlitc na 4 ',b);
      i+=1;
    end;
  if (c mod 4=0) then
    begin
      writeln ('c dedlitc na 4 ',c);
      i+=1;
    end;
  if (d mod 4=0)and(i<3) then
      writeln ('d dedlitc na 4 ', d);
  readln();
end.        


Вывод консоли:
vvedite 4 chisla
1
12
4
24

b dedlitc na 4 12
c dedlitc na 4 4
d dedlitc na 4 24 

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

. Пользователь вводит 2 целых числа, выведите на экран не более 1 из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более одного).

var a,d:integer;
    i:integer;
begin
  i:=0; // счётчик
  writeln('vvedite 4 chisla');
  readln(a,d);
  writeln('Otvet');
  if (a mod 4=0) then
    begin
      writeln (a);
      i+=1;
    end;
  if (d mod 4=0)and(i<1) then
      writeln (d);
  readln();
end.
      


Вывод консоли:
vvedite 2 chisla
1
4
Otvet
4