19.10.2009, 02:04
|
|
Познающий
Регистрация: 16.10.2009
Сообщений: 40
С нами:
8720343
Репутация:
14
|
|
Сообщение от >>serhio<<
Нужно реализовать на Pascale. Найти сумму всех чисел из промежутка а и b кратных из 13 и 5 .
Я на Паскале не "бум-бум", но вроде бы так:
Код:
program atob;
uses CRT;
var a,b,n1,n2,i,sum:integer;
begin clrscr;
writeln('Vvedite chislo a ');
readln(a);
writeln('Vvedite chislo b ');
readln(b);
n1:=13; n2:=5;
for i:=a to b do
begin if ((i mod n1)=0) AND ((i mod n2)=0) Then
sum:=sum+i;
end;
writeln('summa ravna => ' , sum);
readln(i);
end.
|
|
|