4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО1)Перевести 1/4 ГБ в КБ2)3 мб в бит3)87132854 бит в кб Желательно с решением Даю 15 баллов

Знания

Информатика

1 ответ:

kulikowaky4 года назад

0 0

1)262 144 кб

2)25 165 824 бит

3)10 636 кб

Читайте также

Даны два числа. Вывести порядковый номер меньшего из них.

yapk

Var a,b:integer;
begin
Writeln('Введите два числа через пробел');
Read(a,b);
If a<b then write('1') else write('2');
<span>End.</span>

0 0

4 года назад

Напишите программу pascal - 1*(1+2)*(1+2+3)*(1+2+3+4)*(1+2+3+...n)

arsenhax59

begin

var pow: BigInteger := 1;

var sum := 1;

var n := 0;

while n < 2 do

begin

Print('n =');

read(n)

end;

for var i := 2 to n do

begin

sum += i;

pow *= sum

end;

Print(pow)

end.

0 0

1 год назад

Определите какое из указанных ниже имен файлов удовлетворяет маске: ?ba*r.?xt 1)bar.txt 2)obar.txt 3)obar.xt 4)barr.txt

timpar53 [49]

Второе
(* обозначает неограниченное количество символов за место неё или вообще ни одного, а ? означает один любой символ)

0 0

3 года назад

Объявить целочисленный массив. Ввести значения элементов массива с клавиатуры. Заменить неотрицательные элементы массива их кубо

YoDe

Сначала нужно ввести количество элементов массива, потом сам массив:

#include <iostream>

using namespace std;

int main()
{
int n;
cin >> n;
int a[n];
for (int i = 0; i < n; ++i)
{
cin >> a[i];
if (a[i] >= 0)
a[i] *= a[i]*a[i];
else
a[i] *= 2;
cout << a[i] << ' ';
}
return 0;
}

0 0

4 года назад

Нужно написать программу...Задание:Адрес, запрашиваемый пользователем, обычно состоит из четырех частей, из которых первые три я

kotter [50]

Задачка из олимпиады) Простенькая вроде программулька

var
n,i,k,j,f:integer;
m:array [1..100] of string;
p:array[1..100] of string;
sl,por:string;
b:boolean;
f1,f2:text;
begin
assign(f1, 'input.txt');
reset(f1);
readln(f1,n);
for i:=1 to n do
readln(f1,m[i]);
close (f1);

k:=0;
for i:=1 to n do begin
por:='';
b:=false;
sl:=m[i];
for j:=1 to length(sl) do begin
if (Ord(sl[j])>=48) and (Ord(sl[j])<=57) then
por:=por+sl[j];
end;
for f:=1 to k do begin
if por=p[f] then
b:=true;
end;
if b=false then begin
k:=k+1;
p[k]:=por;
end;
end;
assign(f2, 'output.txt');
rewrite(f2);
writeln (f2,k);
for i:=1 to k do
writeln (f2,p[i]);
close (f2);
end.

0 0

3 года назад

Прочитать ещё 2 ответа