Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var s:string;
n,i,k:byte;
begin
readln(s);
n:=length(s);
k:=0;
for i:=1 to n do
if upcase(s[i])='A' then
begin
inc(k);
if s[i]='a' then s[i]:='b'
else s[i]:='B';
end;
writeln(s);
write(k)
end.
Объяснение:
А как это сделать то, для начала, нужно чтобы ты скинул сюда эту схемку
Нужно все нужное скинуть с диска там где винда ! (на другой диск) ......... А потом отформатировать диск . ................И с помощью мастера поставить новую (просто у мастера спецпрограмма) .......................