Помощь с задачами, Pascal

MrSteep · 29.05.2013, 14:07

1) Вычислить сумму чётных чисел от 40 до 80
2) Из всех трёхзначных чисел вывести те, произведение цифр которых = B (B вводится с клавиатуры)
3) Вывести числа A и B которые будут получаться, если знаем, что на начальном этапе они равны 3, A увеличивается на 4, B в два раза, их сумма не должна превышать 100

Vladimir_S · 29.05.2013, 14:59

Цитата:

Сообщение от MrSteep

1) Вычислить сумму чётных чисел от 40 до 80

Код:

Var
 S:Longint;
 i:Byte;
Begin
 S:=0;
 for i:=1 to 20 do S:=S+40+2*i;
 writeln('S= ',S);
 readln
End.

Цитата:

Сообщение от MrSteep

2) Из всех трёхзначных чисел вывести те, произведение цифр которых = B (B вводится с клавиатуры)

Код:

Var
 i,B:Word;

Function Prod(Q:Word):Word;
var
 P,T:Word;
begin
 T:=Q;
 P:=T mod 10;
 T:=T div 10;
 P:=P*(T mod 10)*(T div 10);
 Prod:=P;
end;

Begin
 Write('B= ');
 Readln(B);
 for i:=100 to 999 do
  if Prod(i)=B then write(i:4);
 readln
End.

Цитата:

Сообщение от MrSteep

3) Вывести числа A и B которые будут получаться, если знаем, что на начальном этапе они равны 3, A увеличивается на 4, B в два раза, их сумма не должна превышать 100

Ни бельмеса не понял. Или так?

Код:

Var
 a,b:byte;

Procedure D(p,q:byte);
begin
 if p+q<100 then
  begin
   a:=p+4;
   b:=q*2;
   D(a,b);
  end;
end;

Begin
 D(3,3);
 Write('a= ',a-4,'   b= ',(b div 2));
 readln
End.

Впрочем, можно и по-простому, без рекурсивной процедуры:

Код:

Var
 a,b:byte;

Begin
 a:=3;
 b:=3;
 Repeat
  a:=a+4;
  b:=b*2;
 Until (a+b)>100;
 Write('a= ',a-4,'   b= ',(b div 2));
 readln
End.

29.05.2013, 14:07	#1 (permalink)
MrSteep Новичок Регистрация: 29.05.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помощь с задачами, Pascal 1) Вычислить сумму чётных чисел от 40 до 80 2) Из всех трёхзначных чисел вывести те, произведение цифр которых = B (B вводится с клавиатуры) 3) Вывести числа A и B которые будут получаться, если знаем, что на начальном этапе они равны 3, A увеличивается на 4, B в два раза, их сумма не должна превышать 100

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070