Аника17
Опубликовано 6 лет назад по предмету Информатика от Аника17


решить задачу "напишите эффективную программу, которая по двум данным натуральным числам а и б не превосходящим 30 тысяч подсчитывает количество чётных натуральных чисел на отрезке а и б , включая концы отрезка

  1. Ответ
    Ответ дан AnkeSch

    var a,b,i,s:integer;

    begin

    writeln('введите 2 числа');

    readln(a); readln(b);

    s:=0;

    if a<b then

    for i:=a to b do

      begin

      if i mod 2 = 0 then

      s:=s+1;

      end;

    if a>b then

    for i:=b to a do

      begin

      if i mod 2 = 0 then

      s:=s+1;

      end;

    writeln(s)

    end.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц