<u>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var (p,q):=(1,0);
for var i:=1 to 1000 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false
else j+=1;
if flag then begin
(p,q):=(q,i);
if q-p=4 then Write('(',p,',',q,') ')
end
end
end.
<u>Результат</u>
(7,11) (13,17) (19,23) (37,41) (43,47) (67,71) (79,83) (97,101) (103,107) (109,113) (127,131) (163,167) (193,197) (223,227) (229,233) (277,281) (307,311) (313,317) (349,353) (379,383) (397,401) (439,443) (457,461) (463,467) (487,491) (499,503) (613,617) (643,647) (673,677) (739,743) (757,761) (769,773) (823,827) (853,857) (859,863) (877,881) (883,887) (907,911) (937,941) (967,971)
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int a,n=0;
int k0=0;
int kp=0;
int kot=0;
cin>>n;
for(int i=0;i<n;i++){
cin>>a;
if(a==0)k0++;
if(a>0)kp++;
if(a<0)kot++;}
cout<<k0<<endl<<kp<<endl<<kot;
cin.get();
cin.get();
return 0;
}
Пример ввода:
4
0
-1
1
2
Пример вывода:
1
2
1
Приготовление плова
1. Свинину моем, режем на небольшие кусочки.
2. Рис моем, заливаем водой.
3. Лук чистим, режем полукольцами.
4 Морковь чистим, режем соломкой.
5. В казане разогреваем растительное масло,
6 поджариваем лук.
7 добавляем мясо
8 обжариваем на сильном огне со всех сторон.
9 добавляем морковь.
10 Жарим еще 10 минут
11. Солим,
12перчим,
13заливаем кипятком, чтобы покрыло сверху,
14тушим 20 минут на небольшом огне под крышкой.
15. Зубчики чеснока равномерно раскладываем на мясо.
<span>16. Сливаем с риса воду и засыпаем его сверху на мясо.
17Доливаем кипятка столько, чтобы покрыло рис.
18Тушим на медленном огне под крышкой до готовности риса (около часа). При необходимости можно долить немного кипятка.</span>
16 бит цвета - это 2 байта. То есть один пиксель весит 2 байта. Таких пикселей у нас 640х480 на экран. То есть суммарно одна страница весит - 2*640*480 байт = 600кбайт.
<span>Делим объем памяти на объем памяти 1 страницы и получаем количество страниц: 2,5Мбайт / 600кбайт = 2,5 * 1024 / 600 = 4,27 </span>
<span>То есть не более 4 страниц.</span>
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
