// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.
Program math;var a: real;var i,n: integer;begina:=1;readln(n);for i:=1 to n dobegin a:=a+(1/i);end;writeln(a);end.
1. <span>Текстовый редактор — создавать и редактировать текстовые файлы
2. Графический редактор — с</span><span>оздавать и обрабатывать графические объекты
3. </span><span>Музыкальный редактор — редактировать музыку</span>
Человек в XXI веке, который не будет уметь пользоваться ЭВМ, будет подобен человеку ХХ века, не умевшему ни читать, ни писать
Типо вот таких?
3*100+4*10+5
1*2^4+1*2^3+1*2^0
3*8^2+2*8^1+7*8^0
d*16^2+e*16^1+a*16^0+f*16^-1+b*16^-2 (буковки на чиселки по таблички можно перевести)
1*2^5+1*2^0+1*2^-1+1*2^-2+1*2^-4