Арифметический цикл

@kvkvk · Регистрация: 10.10.2012

Author24 — интернет-сервис помощи студентам

Здравстуйте помогите разобраться с задачей: Найти произведение всех целых чисел кратных 7, из отрезка [a;b]. Если на отрезке нет кратных чисел вывести на экран НЕТ КРАТНЫХ ЧИСЕЛ, Если задан неверный промежуток, то вывести на экран НЕВЕРНЫЙ ПРОМЕЖУТОК, исключить значение в точке 0, т.е. на отрезке от (-1;7) произведение равнялось не 0, а 7. И если не трудно еще составить блок-схему заранее спасибо.

Pascal

Program proizv;
var i, a, b: integer;
    p: longint;
begin
  write('a=');
  readln(a);
  write('b=');
  readln(b);
p:=1;
For i := a to b do
if i mod 7=0 then p:= p*i ;
writeln ('npou3BEDeHue=', p);
if a>b then writeln ('HeBePYb|u` npoMe}|{yTok') ;
End.

Новичок · 06.01.2013, 00:12

Ну вот как-то так,но есть вопрос промежуток верный если a<b,а если a=b,верный ли промежуток или нет?

Pascal

program proizv;
var i,a,b:integer;
p:longint;
krat,error:Boolean;
begin
error:=False;
p:=1;
krat:=False;
writeln('Введите 2 целых числа:');
read(a,b);
if a>b then 
begin
Writeln('Ошибка!Промежуток задан неверно!');
error:=True;
end else
begin
for i:=a to b do
if i<>0 then
if i mod 7=0 then 
begin
p:=p*i;
krat:=True;
end;
end;
if error=False then
if krat=True then Writeln('Произведение целых чисел кратных 7=',p) else
Writeln('Нет кратных чисел!');
Readln;
end.

@kvkvk · 06.01.2013, 00:49 **[ТС]**

во Спасибо большое, если а=б то это будет точка и программа по идее не будет проверять эти значения.

Добавлено через 4 минуты
хотя да что-то немного неправильно, когда скажем а=21 и b=21 то произведение=21
щас попробую добавить условие
если а=b то

Добавлено через 4 минуты
хотя, все правильно))если а=13 b=13? 13 некртано значит кратных в точке нет ПРАЛЬНО!)
...21 (кратно) значит одно единственное число 21.

Новичок · 06.01.2013, 13:13

Дело не в том кратно или некратно,а вопрос такой является ли промежутком например [7,7] или [13,13],по моему одна точка не может быть промежутком.Вообщем не знаю,может спросить в разделе математика?

@kvkvk 0 / 0 / 0 Регистрация: 10.10.2012 Сообщений: 14
	06.01.2013, 00:49 [ТС]	3
	во Спасибо большое, если а=б то это будет точка и программа по идее не будет проверять эти значения. Добавлено через 4 минуты хотя да что-то немного неправильно, когда скажем а=21 и b=21 то произведение=21 щас попробую добавить условие если а=b то Добавлено через 4 минуты хотя, все правильно))если а=13 b=13? 13 некртано значит кратных в точке нет ПРАЛЬНО!) ...21 (кратно) значит одно единственное число 21. 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	06.01.2013, 13:13	4
	Дело не в том кратно или некратно,а вопрос такой является ли промежутком например [7,7] или [13,13],по моему одна точка не может быть промежутком.Вообщем не знаю,может спросить в разделе математика? 0