143.
Дано i=24
x*y=1024*768 I=x*y*i=18874368бит=2.25Мбайт
N=16777216=2^24
144.
i=24
x*y=1600*1200
I=1600*1200*24=46080000бит~~~5.5Мбайт Можно купить 512мбайт и 64мбайт
<em>1)</em>
#include <stdio.h>
#include <stdlib.h>
int sover (int n)
{<span>
int sum = 0;</span><span>
for (int i = 1; i<=n/2; i++)</span><span>
if (n%i==0)</span><span> sum+=i;</span><span>
if (sum==n)</span><span>
return 1;</span><span>
else return 0;
</span>}
int main()
{<span>
int n;</span><span>
printf ("N = ");</span><span>
scanf ("%d",&n);</span><span>
if (sover(n)==1)</span><span>
printf ("Sovershennoe");</span><span>
else printf ("Ne sovershennoe");</span><span>
printf("\n");</span><span>
system ("PAUSE");</span><span>
return 0;
</span><span>}
<em>2)</em>
#include <stdio.h>
#include <stdlib.h>
int main()
{
for (int i = 1; i<=5; i++)
{
for (int j = 1; j<=5-i+1; j++)
printf ("%d ",5+i-1);
printf ("\n");
}
system ("PAUSE");
return 0;
}</span>
Отмечай словесное описание
<span>и формулу</span>. Рисунок и фотография будут графическими моделями.
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (b, c) := ReadReal2;
if c <> 0 then Write('a=', b / c)
else Print('с=0')
end.
Ответ:
var a:array [1..15] of integer ;
i,col:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>200 then col:=col+1;
end;
writeln('Колічесто: ',col);
end.
Объяснение: