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. не уверена,но по-моему так
Ответ дал: Гость
v=331+0,6*(-35)=310 м/c
v=331+0,6*30=349 м/c
Ответ дал: Гость
var
a,b: real;
begin
readln(a,b);
if (a> 0) or (b< -2) then
writeln('истинно')
else
writeln('ложно');
end.
Ответ дал: Гость
101110, 101111. в десятичной эти числа равны 46 и 47.
Популярные вопросы