4 года назад

Переведите 5,600 байт в КБ и 4,000

Знания

Информатика

1 ответ:

Яна310301 [17]4 года назад

0 0

5600/1024=5,46875 КБ

4000/1024=3,90625 Кб

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

20 баллов!!ПомогитеКакого типа возможно представление формата Дата? 1 )13.02.2012 2 )13.2.12 3) 13.02.12 4) 13 фев 5)13 фев

Newar

Первый ответ верен, Третий тоже, так можно записывать дату, в документах тоже так подписывают, а 8- это не верно, через запятую не корректно записывать дату.

0 0

4 года назад

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

Найти все трех значные числа где сумма первого и второго равна третьей

Hrome

Var z1,z2:byte;
begin
for z1:=1 to 9 do begin
    for z2:=0 to 9-z1 do begin
      writeln(z1,z2,z1+z2);
    end;
end;
end.

По просьбе автора задачи - вариант с 3 циклами
var x,y,z:byte;
begin
for x:=1 to 9 do begin
for y:=0 to 9 do begin
   for z:=0 to 9 do begin
   if (x+y=z) then writeln(x,y,z);
    end;
end;
end;
end.

0 0

4 года назад

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

Составить блок-схему и программу: Программы циклической структуры Для заданного значения X, вычислить сумму S.

димон6666

Ответ:

Объяснение:

var

x, s:real;

i:integer;

begin

readln(x);

s:=0;

for i:=3 to 18 do

s:=s + (sqrt(27)/(i*x));

writeln(s);

readln;

end.

0 0

4 года назад

Третий вид программного обеспечения, предназначенный для разработки компьютерных программ на языке программирования,-

Вадим4161 [7]

Ответ:

системы программирования

Объяснение:

0 0

4 года назад

Дано целое число.Указать какое это число положительное или отрицательное. Заменить это число на 71 ,если это число равно 35.умен

масир [51]

<u>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>

begin
var n:=ReadReal('Введите число:');
if n>0 then Writeln('Число положительное')
else if n<0 then Writeln('Число отрицательное');
if n=35 then n:=71
else if n<35 then n-=23;
Writeln('Результат: ',n)
end.

0 0

4 года назад