Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
2 var 3 s: string; 4 begin 5 readln(s); 6 while pos('с',s)> 0 do delete(s,pos('с',s),1); 7writeln(s); 8 end.это точно
program xxx;
var z,d,k : integer;
begin
z: =2; d: =7; k: =0;
while (d> =z) do
d: =d-z;
k: =k+1
end;
writeln(d,' ',k);
readln
end.
на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право
1.найти разность показаний счетчика на конец месяца и на начало месяца.
2.умножить на цену одного квт/часа
Популярные вопросы