5 Кбайт = 5 * 1024 байт = 5120 байт (ответ А)
Uses crt;
var i,s:integer;
a:array[1..5] of integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
begin
a[i]:=random(15)-5;
if a[i]>0 then s:=s+a[i];
end;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
a:array[1..7] of integer;
begin
s:=0;
randomize;
for i:=1 to 7 do
begin
a[i]:=random(15)-5;
if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s);
end;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
a:array[1..6] of integer;
begin
s:=1;
randomize;
for i:=1 to 6 do
begin
a[i]:=random(15)-5;
if (a[i]>0) then s:=s*a[i];
end;
writeln(s);
readln;
end.
5! записывается как 120 (надо вычислять)
LXIV (римское) записывается как 64
11/4 записывается как 11/4 (деление), либо как результат 2.75
-1/6 записывается как -1/6 (деление), либо как результат с приемлемой точностью (-0.666...6)
√2 записывается как функция Sqrt(2), либо как результат с приемлемой точностью (1.4142135623730950488016887242...)
5·10⁶ записывается как 5e6
10⁶ записывается как 1e6
1/100000 записывается как 0.000001 или 1e-5
Var
m,k,g:integer;
begin
Write('Введите массу в граммах: '); Read(m);
k:=m div 1000;
g:=m mod 1000;
Writeln(m,' г = ',k,' кг ',g,' г')
end.
<u>Пример</u>
Введите массу в граммах: 23521
23521 г = 23 кг 521 г
12AC,6E?Ноль называется значащим, если удаление его из записи числа ведёт к изменению значения числа. !!!Приведите решение задачи!!!.
// 12AC,6E (16с/с) = 1001010101100.0110111 (2 с/с)
