42

Решить задачу «напишите эффективную программу…

idea52 06 марта 2023

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

категория: информатика

39

var a,b,i,s: integer; beginwriteln ('введите 2 числа'); readln (a); readln (b); s: =0; if ab thenfor i: =b to a do begin if i mod 2=0 then s: =s+1; end; writeln (s) end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...