1 задача program proga; var st,st2:string; i:Integer; begin writeln('Введите число'); readln(st); for i:=1 to length(st) do begin st2:=st[i]; write(st2,' '); end; end. 2 задача program proga2; var st,st2:string; i,a:Integer; begin writeln('Введите возраст'); readln(a); if a>120 then writeln('Неверные данные'); if a=1 then writeln(a,' год'); if (a>1) and (a<5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год'); if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then writeln(a,' лет'); if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a>104) and (a<110)then writeln(a,' лет'); end.
Program z1; var a:array[1..100] of integer; i,n,k,mi,miu:integer; begin assign(input,'in.txt'); reset(input); readln(n); for i:=1 to n do begin read(a[i]); end; close(input); mi:=a[1];miu:=1; for i:=1 to n do begin if a[i]<mi then begin mi:=a[i];miu:=i end; end; i:=miu; while i<n do begin a[i]:=a[i+1]; i:=i+1 end; assign(output,'out.txt'); rewrite(output); for i:=1 to n-1 do begin write(a[i],' ') end; close(output) end.
320 Кбайт
Объяснение:
1) 64 × 40 = 2560 (Кбит)
2) 2560 × 1024 / 8 / 1024 = 320 Кбайт