Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a: integer;
s: string;
begin
read(a);
case a of
1: s: ="i";
5: s: ="v";
10: s: ="x";
50: s: ="c";
100: s: ="c";
500: s: ="i";
1000: s: ="m;
end;
writeln(s);
end.
римские соответствия не все помню
8. дано:
v= 36864 бит/с
1 стр. = 2304 сим* 8 бит = 18 432 бит
4 стр. = 18 432 бит* 4= 73 728 бит = s
t -?
решение.
t= s/v
t= 73728 бит / 36 864 бит/c= 2с.
ответ: 2с.
9. дано:
v=4096 бит/с
t=10 с
n-?
s=t*v.n=s/16
s=10с*4096 бит/с=40960 бит.
n=40960 бит/ 16=2560 сим.
ответ: 2560 сим.
блок смемы не умею
var i: integer
s,n: real;
repeat
read(n);
if n> 0 then s: =s+n
until n=0;
var a,s: real;
i: integer;
i: =i+1;
s: =s+1/i
until s> a;
writeln(i,s);
Популярные вопросы