Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300

@Ychenick · Регистрация: 09.01.2011

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

а) двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300;
б) тридцатью первыми простыми числами.

@Puporev · 04.10.2011, 18:42

Pascal

uses crt;
const n=20;
var a:array[1..n] of integer;
    b,i:integer;
begin
b:=300;
i:=0;
while i<n do
 begin
  inc(b);
  if(b mod 13=0)or(b mod 17=0)then
   begin
    inc(i);
    a[i]:=b;
   end;
 end;
for i:=1 to n do
write(a[i]:4);
end.

@Ychenick · 04.10.2011, 19:53 **[ТС]**

Puporev, спасибо огромное! под Б я сам сделал

@Ychenick 5 / 5 / 5 Регистрация: 09.01.2011 Сообщений: 105
		1
	Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300 04.10.2011, 17:50. Показов 10235. Ответов 2 Метки нет (Все метки) а) двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300; б) тридцатью первыми простыми числами. 0

@Ychenick 5 / 5 / 5 Регистрация: 09.01.2011 Сообщений: 105
	04.10.2011, 19:53 [ТС]	3
	Puporev, спасибо огромное! под Б я сам сделал 0

Опции темы

Заполнить массив двадцатью первыми натуральными числами, делящимися нацело на 13 или на 17 и большими 300

Решение