Задание 1
var
s:string;
digit:set of '0'..'9';
i,imax:integer;
begin
Write('Введите строку: '); Readln(s);
imax:=Length(s)-1;
i:=imax;
digit:=['0'..'9'];
while i>=2 do begin
if (not (s[i] in digit)) and (s[i+1] in digit) and (s[i-1] in digit)
then Delete(s,i,1);
Dec(i)
end;
Writeln('Результат: ',s)
end.
Тестовое решение
Введите строку: 12*3aa456*78aa
Результат: 123aa45678aa
Var a,b,c,d,k,f,flag: integer;
begin
readln(a,b,c,d);
repeat
K:=k+1;
Case k of
1: f:=b;
2: f:=c;
3: f:=d;
end;
If a<f then flag:=flag+1
else flag:=0;
Until k=3;
If flag=3 then Writeln('yes')
else writeln('no');
readln;
end.
Задачу удобно решать с помощью кругов Эйлера (см. прилагаемый файл).
К1+К2+К3 = 15000
К2 = 8000
К2+К3 = 12000
К1 = 15000-12000 = 3000
К1+К2 = 3000+8000 = 11000
Ответ: 11000
674 = <span>DCLXXIV
78 = </span><span>LXXVIII
465 = </span><span>CDLXV
</span>3440 = <span>MMMCDXL
</span>MMMDXIV = <span>3514
CCCI = </span><span>301
CDVII = </span><span>407
LIX = </span><span>59
MMCCCDXXIV = </span><span>2624
</span>
Обозначим за Q — количество данных, q — скорость передачи, t — время передачи. Тогда Q1 = Q = Q2 = 30 Мбайт.
Переведём Q в Кбиты: 30 Мбайт = 240 Мбит = 240 * 210 Кбит.
Время передачи определяется как t = Q / q. В данном случае надо сложить время передачи данных Q1 и Q2:
t = = 240 * 4 + 240 * 8 с = 2880 с = 48 минут.
Ответ: 48.