Розгорніть наступні вирази


 Розгорніть наступні вирази

Ответы

в 8символьном алфавите каждый символ весит 3 бита(т.к. 2³=8)

3*100=300 бит

ответ: 300 бит

 

чес гря не понимаю, в чем тут же все указано. безо всякого с++ в экселе мона сотворить этакий "калькулятор"))

 

есть постоянная 100 (гк золота)

и переменные х и у, их вводит, я так понял, пользователь программулечки,

дальше сии переменные суммируются

и из них считают

70% - результат сообщают польщователю с пометкой "погибшие"

26% результат сообщают польщователю с пометкой "тяжело ранено"

4% результат сообщают польщователю с пометкой "осталось в живых"

а постоянную100 делят на эти 4% от х+у ( то есть на к-во выживших) и сообщают результат пользователю с пометкой "досталось золота каждому из них (выживших)"

 

затем, если надо, обнулить х и у для следкющего года. 

а результаты, если надо получить данные за два года, прибавлять к предыдущим, уже ну и еще куча вариантов обработки вдруг нужна выборка по четным , вдруг еще

 

  мона поставить переменную, считающую годы с каждым вводом х и

 

 

в ощем - подвинтеся, дайте простор моей

 

 

1)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do writeln(i*i);

end.

2)

var

i,n: integer;

begin

readln(n);

for i: =1 to 10 do writeln(i: 2,'*',n,'=',i*n: 3);

end.

3)

var i,n: integer; p: real;

begin readln(n); p : = 1; for i : = 1 to n do p : = p * i; writeln(p: 15: 0); end.

4)

var

i,n: integer;

begin

readln(n);

for i: =1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k: integer;

begin

readln(n);

k: =0;

for i: =1 to n do if (i mod 15=0) then k: =k+1;

writeln(k);

end.

Найдено 2 ответ(ов)
Показать ответы


Знаешь ответ?

Похожие вопросы:

Матери́нская пла́та (. motherboard, mb, также используется название . mainboard — главная плата; сленг. мама, мать, материнка) — это сложная многослойная печатная плата, на которо...Подробнее
ответов: 1
Популярные вопросы