4 года назад

помогите составить сказку "теремок" с действующим лицом Системный блок, мышь, клавиатура, модем, монитор

1 ответ:

0 0

Нашел раз Системный блок небольшой дом. Залез в него и стал там жить. Пришла мышь и спрашивает:"Кто в теремке живет?"Системный блок ответил:"Я здесь живу, заходи вместе жить будем".Жили они хорошо.Пришел модем, спросил:"Кто в теремке живет?" А ему отвечают:"Мы, системный блок и мышь, заходи к нам."Стали вместе жить.Пришла клавиатура и спросила:"Кто тут живет?"Ей ответили:" Мы, системный блок, мышь и модем, заходи к нам." Стали вместе жить.Пришел монитор, спросил:"Кто здесь живет? "А ему ответили:"Нет места".Залез монитор на дом-теремок и стал там жить. Так появился компьютер. (домик-стол компьютерный)

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

1 вариант. Объем реферата равен приблизительно 16 Кбайт (алфавит компьютера составляет 256 символов), скорость печати на матричн

Lopiuy [50]

Если 16Кбайт = 16384 б.
1 бай = 8 бит = 1 сим.
16384/64 = 2^14/2^6 =2^8 = 256 секунд
256 секунд = 4 минуты, 16 секун

0 0

4 года назад

Задание: составить программу, в которой заменить все буквы а буквой о. (в pascal) (тема: двумерные массивы)

SergMay

program raf105;

var a:array[1..30,1..20] of string;

i,j,o:integer;

s:string;

begin

for i:=1 to 30 do

for j:=1 to 20 do

a[i,j]:= '';

writeln('Вводите слова по очереди');

writeln('Чтобы закончить введите 0');

repeat

readln(s);

if s <> '0'

then

begin

o:= o+1;

for i:=1 to length(s) do

a[o,i]:= s[i];

end;

until s = '0';

writeln;

writeln('Вывод:');

for i:=1 to o do

begin

for j:=1 to 20 do

if a[i,j] = 'а'

then a[i,j]:= 'о';

for j:=1 to 20 do

if j <> 1

then

begin

a[i,1]:= a[i,1] + a[i,j];

a[i,j]:= '';

end;

writeln(a[i,1]);

end;

end.

0 0

4 года назад

Как в алгебре логики обозначают наступление события А? Как в алгебре логики обозначают ненаступление события В? Может ли событие

ya-libo [50]

Ответ:

0-лодно , а 1-истинно

Объяснение:

нет

зимой есть снег A＝1 нет снега B＝0

C＝1+0＝1

C＝1*0＝0 разные згачение одновременно нет

0 0

4 года назад

Найти сумму корней квадратных из трёхзначных натуральных чисел. Создайте прогу которая просчитывала это на ABCpascal

goodkupa [88]

Var
a,b,c : integer;
d,x1,x2,s : real;
  begin
writeln ('ax^2+bx+c=0');
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);

d := sqr (b) - 4 * a * c;
if d < 0 then
writeln ('Корней нет')
else
begin
x1 := (-b + sqrt (d))/(2*a);
x2 := (-b - sqrt (d))/(2*a);
if x1 <> x2 then
begin
writeln ('x1=',x1);
writeln ('x2=',x2);
s := x1+x2;
writeln ('s=',s);
end
else
writeln ('x=s=',x1);
end;
    <span> end.</span>

0 0

3 года назад

Нужно перевести 40.96 бит = ? байт 2 байта = ? бит 4 кбит = ? байт

prameus [18]

1) 5.12 байт
2) 16 бит
3) 512 байт

0 0

4 года назад