===== PascalABC.NET =====
begin
var (s, n) := ReadInteger2('Введите S и N:');
var r := 0;
for var m10 := 0 to S div 10 do
begin
for var m5 := 0 to (S - 10 * m10) div 5 do
begin
if m10 + m5 > N then
break;
for var m2 := 0 to (S - 10 * m10 - 5 * m5) div 2 do
begin
if m10 + m5 + m2 > N then
break;
for var m1 := 0 to S - 10 * m10 - 5 * m5 - 2 * m2 do
begin
if m10 + m5 + m2 + m1 > N then
break;
if (m10 * 10 + m5 * 5 + m2 *2 + m1 = s) and
(m10 + m5 + m2+ m1 = N) then
begin
$'{m10} x 10 + {m5} x 5 + {m2} x 2 + {m1} x 1'.Println;
Inc(r)
end
end
end
end
end;
if r > 0 then
Println('Найдено вариантов размена:', r)
else
Println('Вариантов такого размена нет')
end.
0.5 Мб = 1024²/2 = 524288.
Делим на 524287 и получаем округленно 1.
Следовательно, адресоваться можно с точностью до 1 байта - это и есть размер машинного слова.
Адреса слов - от 0 до 524287 - всего 524288 слов.
Ответ: 1 байт.
Var
A:array[1..33] of integer;
i:integer;
Begin
For i:= 1 to 33 do
Begin
A[i]:=random(201)-100;
Write(A[i],' ');
End;
End.
10(2) = 1*2^1 + 0*2^0 = 2 (10)
10(2) + 10(10) = 2(10) + 10(10) = 12(10)
ответ 12
Значитса тебе надо найти квадраты чисел до самого N ,для этого мы объявляем переменную k и присваиваем ей 1 и переменную s, которой присваиваем значение 0, после делаем цикл от 1 до N с шагом 1 и там же к s прибавляем k, а k увеличиваем на 2 ( на 1 шаге k=3, на 2 k=5 и т. д., то есть нечетные числа) ну и выводим в цикле s
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int N;
cin>>N;
int k=1,s=0;
for(int i=1;i<=N;i++)
{
s=s+k;
k=k+2;
cout<<i<<"^2 = "<<s<<endl;
}
_getch();
return 0;
}