// PascalABC.NET 3.0, сборка 1088
var
MySet:set of char;
s:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=1 to Length(s) do
if s[i] in ['D'..'I'] then Include(MySet,s[i]);
Writeln('Состав множества: ',MySet)
end.
<u><em>Тестовое решение:</em></u>
Введите строку: HAPPY BIRTDAY TO YOU!
Состав множества: {H,I,D}
Var
a, min: integer;
begin
min :=30000;
repeat
readln(a);
if (a mod 3 = 0) and (a < min) and (a <> 0) then
min := a;
until a = 0;
writeln(min);
<span>end.</span>
я сделал рандомные числа от 0 до 100, если нужно можешь изменить, что бы заполнялся пользователем.
a[10],i,min,s,p:integer
randomize
for i=1 to 10 do
a[i]:=random(101);
min:=a[i];
s:=0
p:=1
for i=1 to 10 do begin
if a[i]<min then
min:=a[i];
if a[i]<0 then
s:=s+a[i];
if a[i] mod 3 = 0 then
p:=p*a[i];
end;
write('minimum=', min, ' summ=', s, ' umnosenie=', p);
end.
Program z1;
var s,a,b:real;
begin
writeln('введите стороны прямоугольника');
readln(a,b);
s:=a*b;
writeln(s);
end.
Ответ:
15 мин переведем в секунды это равно: 15×60(поскольку в одной минуте 60 сек)=900 сек
25×900=22 500 кб=21,9=22мб