Var
O:string;
i,k:byte;
B,pO:array[1..3] of string;
Begin
B[1]:='2 * 2 = 5 ?';pO[1]:='нет';
B[2]:='Оператор Read вводит данные?';pO[2]:='да';
B[3]:='СССР победил в войне 1812 года?';pO[3]:='нет';
k:=0;
For i:= 1 to 3 do
Begin
WriteLn(B[i]);
ReadLn(O);
O:=LowerCase(O);
While (O <> 'да')and(O <> 'нет') do
Begin
Write('Попробуйте ещё раз: ');ReadLn(O);
O:=LowerCase(O);
End;
if pO[i] = O then k:=k+1;
End;
WriteLn('Количество правильных ответов: ',k);
End.
CLS
DIM a(20)
FOR i = 1 TO n
b:
INPUT a(n)
IF a(n) < 1 OR INT(a(n)) <> a(n) OR a(n) > 10000 THEN GOTO b
IF INT((a(n)) / 10) = (a(n)) / 10 AND a(n) < 1000 AND a(n) > 99 AND a(n) > h THEN h = a(n)
NEXT i
PRINT h
END
Где только находят такие задачи О_о ну вот :)
uses crt;
type auto=record
nom:string;
sht:integer;
end;
var f,g:text;
a:array[1..100] of auto;
s,s1:string;
n,k,i,j,c,p,r:integer;
x:auto;
begin
clrscr;
assign(f,'input.txt');
reset(f);
assign(g,'output.txt');
rewrite(g);
read(f,n);
readln(f,s);
readln(f,s);
k:=1;
a[k].nom:=copy(s,1,8);
delete(s,1,9);
val(s,a[k].sht,c);
for i:=2 to n do
begin
readln(f,s);
s1:=copy(s,1,8);
delete(s,1,9);
val(s,r,c);
p:=0;
j:=1;
while(j<=k) and(p=0) do
if s1=a[j].nom then
begin
p:=j;
a[p].sht:=a[p].sht+r
end
else j:=j+1;
if p=0 then
begin
k:=k+1;
a[k].nom:=s1;
a[k].sht:=r;
end;
end;
close(f);
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i].sht<a[j].sht then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to k do
begin
writeln(g,a[i].nom,' ',a[i].sht);
writeln(a[i].nom,' ',a[i].sht);
end;
close(g);
end<span>.</span>
2^6 = 64
V = 1280*1280*6 = 9830400 бит = 1228800 байт
=========================================
Если в двоичном коде то
1101100