Вопрос по информатике:
Ребята срочно помогите! 15 баллов! Решить в паскале!
На вход подаются два числа – a и b. Вывести на экран сумму всех чисел между ними, которые кратны 5 и превышают 15. Если таких чисел нет, вывести “NO”.
Пожаловаться
- 15.02.2017 14:39
- Информатика
- remove_red_eye 13517
- thumb_up 9
Ответы и объяснения 2
Var a, b, c: real;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := a+b;
Label1.Caption := FloatToStr(c);
If 5
Else If 5
end;
begin
a := StrToFloat(Edit1.Text);
b := StrToFloat(Edit2.Text);
c := a+b;
Label1.Caption := FloatToStr(c);
If 5
Else If 5
end;
Пожаловаться
- 16.02.2017 19:13
- thumb_up 2
Var a,b,i,s:integer;
begin
write ('Введите числа: ');
readln (a,b);
if a<=b then
for i:=a to b do
if (i mod 5 = 0) and (i>15) then s:=s+i;
if a>b then
for i:=b to a do
if (i mod 5 = 0) and (i>15) then s:=s+i;
if s>0 then writeln ('Сумма всех чисел между ними, которые кратны 5 и превышают 15, равна: ',s)
else writeln ('NO')
end.
begin
write ('Введите числа: ');
readln (a,b);
if a<=b then
for i:=a to b do
if (i mod 5 = 0) and (i>15) then s:=s+i;
if a>b then
for i:=b to a do
if (i mod 5 = 0) and (i>15) then s:=s+i;
if s>0 then writeln ('Сумма всех чисел между ними, которые кратны 5 и превышают 15, равна: ',s)
else writeln ('NO')
end.
Пожаловаться
- 17.02.2017 08:52
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы