var
x, y: real;
k: integer;
begin
k := 0;
Read(x, y);
while (x <> 0) or (y <> 0) do
begin
if (x < 0) and (y > 0) then
k := k + 1;
Read(x, y)
end;
Writeln(k);
end.
Ну вроде как от компьютера. Информация кодируется двоичным кодом, из нулей и едениц.
Не так уж и трудно, если подумать...
program Project2;
var
n,a,b,c,i,k,max,min: longint;
inp,outp: text;
begin
assign(inp,'input.txt');
reset(inp);
assign(outp,'output.txt');
rewrite(outp);
readln(inp,n);
max:=0;
min:=0;
c:=0;
for i:=1 to n do
begin
read(f1,a);
if i=1 then
b:=a;
if a>max then
max:=a;
k:=a-c;
c:=a;
if k<0 then
begin
k:=abs(k);
min:=min+k;
if k>min then
min:=k;
end;
end;
max:=max-b;
write(outp,max,' ',min);
close(inp);
close(outp);
end.
Номер 1
const
D: array[1..7] of string = ('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday', 'Sunday');
var
day: longint;
begin
writeln('Введите номер дня.');
readln(day);
writeln(D[day]);
end.