Program area;var weight,height:real;beginWriteln('введите длинну и ширину комнаты');Readln(weight,height);weight:=weight*height;Write('площадь =',weight);end.
program centner;var kg:integer;beginWriteln('введите количество килограммов');Readln(kg);kg:=kg div 100;Write('центнеров: ',kg);end.
Ответ:
1) N=128
формула: N=2 в степени i
128=2 в степени i
i=7 так как 2 в 7 степени= 128
ответ :7.
2) N=2^i; 32=2^i => i=5 бит;
5 МБ = 41943040 бит.
41943040 бит/5 бит = 8388608 символов.
3) 1. Если в кодировке ASCII.
8*25*150=30000 символов.
Один символ в кодировке ASCII занимает 1 байт или 8 бит.
30000*1=30000 байт.
2. Если в кодировке UNICODE.
8*25*150=30000 символов.
Один символ в UNICODE занимает 2 байта или 16 бит.
30000*2=60000 байт.
4) 1) 80*100=8000.
2) 8000:16=500.
3) 32000:500=64 => 2 в 64 степени=6.
5) 1) 3*1024*8=24576.
2) 24576:3072=8 => 2 в 8 степени=3.
не благодари
Объяснение:
1600 - 80 = 1520 кількість учнів які займаються
1520 - 950 = 570 учнів,які не займаються кружками, а ходять в спорт. секції
1520 - 1052 = 468 учнів які не ходять в спорт.секції, а займаються кружками
950 - 468 = 482 учнів які можуть ходити одночасно
1052 - 570 = 482 учнів які можуть ходити одночасно
Відповідь: B)482;
Первый раз заходим в условие
2-2 < 0 - нет
идем вниз
с = 4
d = 6
Второй раз идем в условие
4 - 6 < 0 - да
выходим
Ответ: с = 4
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function IsPrime(n:integer):boolean;
begin
Result:=Range(2,Round(sqrt(n))).All(i->n mod i<>0)
end;
begin
var n:=9;
var a:=MatrixRandom(n,n,3,15);
var k:=0;
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do begin
Write(a[i,j]:3);
if IsPrime(a[i,j]) then Inc(k)
end;
Writeln
end;
Writeln('Простых чисел: ',k)
end.
<u><em>Тестовое решение:</em></u>
12 15 13 5 8 5 11 14 9
7 7 14 10 5 10 9 12 3
8 8 10 7 12 14 7 6 9
13 13 7 6 4 9 13 10 11
15 4 11 12 11 4 12 8 9
7 6 14 5 10 15 6 7 9
4 7 6 14 13 5 11 13 3
4 4 5 7 12 10 14 9 11
7 12 13 8 10 6 8 3 15
Простых чисел: 32