profile
Размещено 5 лет назад по предмету Информатика от BellaThorne140

Помогите с Паскалем ABS.
1 дано пятизначное число. определить сумму второй и пятой цифры.
2 дано пятизначное число. Определить сумму второй и четвёртой цифрой.
3 написать программу в которой подсчитывается количество чётных чисел среди трёх, введёных с клавиатуры

  1. Ответ на вопрос
    Ответ на вопрос дан XameleonRus
    №2.
    var a,b: integer;
    beginreadln(a);
    b:=a;
    a:= (a div 10) mod 10;
    b:= (b div 1000) mod 10;
    writeln(b+a);
    end.

    №1.
    var a,b: integer;
    beginreadln(a);
    b:=a;
    a:= a  mod 10;
    b:= (b div 1000) mod 10;
    writeln(b+a);
    end.
    1. Ответ на вопрос
      Ответ на вопрос дан XameleonRus
      №3
    2. Ответ на вопрос
      Ответ на вопрос дан XameleonRus
      var a,b,c,d: integer;
      begin
      readln(a,b,c);
      if (a mod 2 =0) then d:=d+1;
      if (b mod 2 = 0) then d:=d+1;
      if (c mod 2 = 0) then d:=d+1;
      writeln(d);
      end.
  2. Ответ на вопрос
    Ответ на вопрос дан Pashq4
    № 1-2

    var x, t, f, l, sum, sum2: integer;
    begin
    write('Введите x: ');
    readln(x);
    if ( x < 10000 ) OR ( x > 99999 ) then
    writeln('Ошибка. Число не пятизначное!')
    else
    begin
    l := x mod 10;
    t := (x div 1000 mod 10);
    sum := l + t;
    f := (x div 10 mod 10);
    sum2 := t + f;
    writeln('Сумма второй и последней цифры: ', sum);
    writeln('Сумма второй и четвертой цифры: ', sum2);
    end;
    end.

    №3

    var a, b, c, rez: integer;
    begin
    write('Введите первое число: ');
    readln(a);
    write('Введите второе число: ');
    readln(b);
    write('Введите третье число: ');
    readln(c);
    rez := 0;
    if a mod 2 = 0 then inc(rez);
    if b mod 2 = 0 then inc(rez);
    if c mod 2 = 0 then inc(rez);
    writeln('Количество четных чисел: ', rez);
    end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.