12 var 3 s : string; 4 begin 5 readln (s ); 6 while pos ( 'с' ,s )> 0 do delete (s ,pos ( 'с' ,s ) ,1 ); 7 writeln (s ); 8 end. не уверена,но по-моему так
Ответ дал: Гость
текст: happy new year, dear содержит 30 символов. при кодировании текста с acsii каждый символ кодиреутся 8 битами или 1 байтом, следовательно
30 символов = 30 байт или 30 * 8 = 240 бит
Ответ дал: Гость
var n,z: longint;
begin
read(n);
z: =abs(n);
z: =z-2;
writeln(z);
end.
Ответ дал: Гость
1)
var
a,b,x,y: real;
begin
readln(a,b);
x: =(a+b)/2;
y: =2*a*b;
if a> b then
begin
a: =y;
b: =x;
end
else
begin
a: =x;
b: =y;
end;
writeln('a=',a: 8: 3);
writeln('b=',b: 8: 3);
end.
2)
var
d,m: integer;
begin
readln(d,m);
if (d< 1) or (d> 31) then writeln ('день введен неверно');
if (m< 1) or (m> 12) then writeln ('месяц введен неверно');
Популярные вопросы