Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 122075
07.02.2008, 12:48
0.00 руб.
0 3 3
Компьютеры Программирование
Помогите пожалуйста!!!Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значение переменных А и В вводятся с клавиатуры)

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
07.02.2008, 13:07
общий
это ответ
Здравствуйте, Бекмансуров Рамиль Рашидович!

В приложении Ваша программа.
Удачи!

Приложение:
program q122075; var a,b,c:longint; begin {вводим значения} write(‘Enter A:‘);readln(a); write(‘Enter B:‘);readln(b); {проверяем значения для цикла} if a>b then begin c:=a; a:=b; b:=c; end; {сбрасываем сумму} c:=0; {сам цикл} while a<=b do begin {проверяем условия суммирования} if (a mod 4)=0 then c:=c+a; {следующее значение} inc(a); end; {вывод} writeln(c); end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
07.02.2008, 13:08
общий
это ответ
Здравствуйте, Бекмансуров Рамиль Рашидович! Вот так это можно реализовать в программе. Дерзайте.
var a,b,i,summ:integer;
begin
Writeln(‘Введите А и В‘);
readln(a,b);
for i:=a to b do
if i mod 4 = 0 then summ:=summ+i;
Writeln(‘Сумма = ‘,summ);
readln
end.
Неизвестный
10.02.2008, 18:47
общий
это ответ
Здравствуйте, Бекмансуров Рамиль Рашидович!
program asd;
var
i,a,b,sum:integer;
begin
sum:=0;
readln(a,b);
for i:=a to b do
if (i mod 4=0) then sum:=sum+i;
writeln(sum);
end.
Форма ответа