Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Решение задачи на Pascal
1.Вычислить произведение чисел, принадлежащих промежутку (A, B] и подсчи-тать количество отрицательных чисел, стоящих на местах, кратных 3.

2.Найти максимальное число и вместо него записать значение N+2.
1 | Автор: Makson12345 | 2011-12-22, 14:01   |  Репутация: [ + 0 ]
var
a:array[1..100]of integer;
i,s,a,b:integer;
begin
s:=0;
read(a);read(b);
for i:=a to b do
s:=s*i;
writeln(s);
s:=0;
for i:=a to b do
if i<0 then
if abs(i) mod 3=0 then s:=s+1;
writeln(s);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-12-24, 15:41   |  Репутация: [ + 211 ]
var
a:array[1..100]of integer;
i,p,n,m:integer;
begin
p:=low(p);
read(n);
for i:=1 to n do begin
read(a[i]);
if a[i]>p then begin p:=a[i];m:=i;end;end;
a[m]:=n+2;
for i:=1 to n do
write(a[i],' ');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2011-12-24, 15:43   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2011-12-24, 15:43   |  Репутация: [ + 211 ]
Спасибо большое!!!Выручили!!
4 | Автор: Makson12345 | 2011-12-24, 19:47   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: