Решение домашних заданий

Записать решение задач в Pascal Abc:

7 августа 2016 / Школа / Комментарии: 1

Записать решение задач в Pascal Abc:

1. Определить есть ли в составе трехзначного числа одинаковые цифры.
2. Вводятся два числа,определить одного они знака или нет.
3. Определить принадлежит ли х отрезку от 1 до 5. Границы входят в интеграл.
4. Определить является ли автобусный билет счастливым.
5. Является ли год с порядковым номером х високосным или нет.

Записать решение задач в Pascal Abc:: один комментарий
  1. yuliagal
    7 августа 2016 в 14:56 – Ответить
    Задача 1. 
    var
      a,b,c,x: integer;
    begin
      readln(x);
      a:= x mod 10;
      x:= x div 10;
      b:= x mod 10;
      x:= x div 10;
      c:= x;
      if (a=b) or (a=c) or (b=c) then writeln(‘Есть’) else writeln(‘Нет’);
    end.

    Задача 2.
    var 
      a,b: integer;
    begin 
      readln(a,b); 
      If ((a>0) and (b>0)) or ((a<=0) and (b<=0)) then writeln(‘да’) else writeln(‘нет’);
    end.

    Задача 3.
    var
      x: real;
    begin
      readln(x);
      if (x=<5) and (x>=1) then writeln(‘да’) else writeln(‘нет’);
    end.

    Задача 4. 
    Справка:
    Счастливым считается полученный в общественном транспорте билет, в шестизначном номере которого сумма первых трёх цифр совпадает с суммой трёх последних.
    var 
      x: integer;
    begin
      readln(x); 
      for i:=1 to 3 do begin   
        d:= x mod 10;   
        x:= x div 10;   
        s1:= s1+d 
      end; 
      for i:=1 to 3 do begin   
        d:= x mod 10;   
        x:= x div 10;   
        s2:= s2+d 
      end; 
      if s1=s2 then writeln(‘да’) else writeln(‘нет’)
    end.

    Задача 5.
    Справка:
    год является високосным в двух случаях: либо он кратен 4, но при этом не кратен 100, либо кратен 400. 
    var 
      x: integer;
    begin 
      readln(x); 
      If ((x mod 4=0) and (x mod 100<>0)) or (x mod 400=0) then
      writeln(‘да’) else writeln(‘нет’)
    end.

Добавить комментарий