Вначале надо найти кол-во символов в одном сочинении: k=4*25*40=4000 символов. Далее переведем объем дискеты в биты: 1,44*1024*8=11796,48 бит. Ну и поделить одно на другое:11796,48:4000=2,95 Но на понятно,что на диск поместятся только целые сочинения,а не 0,95,так что ответ:2 сочинения.
program Project1;
var s,s1,s2:string;
begin
Readln(s);
s1:=copy(s,3,3);
s2:=copy(s,1,2);
delete(s,1,3);
insert(s1,s,1);
insert(s2,s,2);
Writeln(s);
Readln
end.
A - сумма цифр
B - минимальная из цифр
получается минимальное число, сумма цифр которого 13, а мин. цифра - 5.
Это 58.
Program fantscrin;
const n = 100;
Var a: array [1..n] of integer;
i,j,k,s:integer;
Begin
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if (a[i] = 0) then break;
k:=k+1;
end;
for i:=1 to k do
write(a[i], ' ');
for i:=1 to k do
if ((a[i] mod 10 = 3)and(a[i] mod 7 = 0)) then s:=s+a[i];
writeln('');
writeln(s);
End.