даны два целых числа A и B(вводятся с клавиатуры).Найти и вывести сумму четных чисел от A до B-это тема паскаля очень сложная помогите кто-нибудь пожалуйст
10-11 класс
|
а.
uses crt;
var
a,b,i,k: longint;
begin
writeln('введите 2 числа');
read (a,b);
k:=0;
for i:=a to b do
if i mod 2 = 0 then
k:=k+i;
writeln(сумма четных чисел от ', a,' до ', b,' равна ',k)
end.
Другие вопросы из категории
1) Если маска подсети 255.255.255.128 и IP-адрес компьютера в сети 122.191.12.189, то номер компьютера в сети равен_____
1) Если маска подсети 255.255.248.0 и IP-адрес компьютера в сети 112.154.133.208, то номер компьютера в сети равен_____
1) Если маска подсети 255.255.224.0 и IP-адрес компьютера в сети 206.158.124.67, то номер компьютера в сети равен_____
Напишите программу, которая запрашивает у пользователя два числа и выводит квадрат суммы и сумму квадратов этих чисел.
Все отрицательные элементы удвоить.
Вывести на печать исходный массив, переформированный массив и число S.
Читайте также
порядке возрастания все целые числа, расположенные между A и B(в том числе A и B),
a также количество N этих чисел
ЦИКЛ с ПАРАМЕТРОВ
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.
(A < B). Найти произведение всех целых чисел от A до B
включительно.
числа A и B (A < B). Вывести все целые числа,
расположенные между данными числами (включая сами эти числа), в порядке их
возрастания (убывания), а также количество N этих чисел (с использованием
оператора for, while, repeat)